Min fantasi rækker vist ikke så langt, så jeg kan se en smart måde, men hvis du danner en graf på baggrund af dine data, kopierer grafen, indsætter den i PowerPoint (jo, bær lige over med mig), kan du i PowerPoint højreklikke på det billede, som du nu har sat ind af din graf og gemme det som PNG.
Altså - du ønsker ikke en graf, som du ellers skrev i dit spørgsmål. Men fremgangsmåden er sådan set den samme. Kopier, sæt det ind i PowerPoint som et billede, højreklik på billedet, vælg Gem som billede osv.
ja der var lige en fejl i teksten. Det skulle være lige som overskriften. Gemme tabel som et billede. Beklager. Jeg mener bare at have hørt, at man kan gøre det direke i Excel, men jeg ved ikke lige hvordan.
Jeg skal måske gøre det for 200 tabeller hver uge, så det skal helst være lidt mere simpelt. Jeg har fået lavet en VBA kode, som eksporterer en graf som et billede ved at markere grafen og så trykke på en knap, hvorefter der kommer en popup, hvor man giver grafen et navn. Derefter er grafen automatisk gemt som et billede i samme fil som regnearket og i det rigtige format. Er der nogen som ved om det samme kan lade sig gøre for en tabel?
Det kan fint lade sig gøre at gemme et område som GIF eller PNG. Det kan fungerere ved at lave et snapshot af området og derefter smide det i en tom graf, som derefter kan gemmes som billedfil. Det er set før, men hvis du skal have det gjort med 200 tabeller pr. uge så skal det hele automatiseres og det lyder som en større omgang :-)
jeg er endnu ikke helt sikker på omfanget af antal tabeller, men kan du uddybe fremgangsmåden lidt? :) Skal jeg bruge nogle af de programmer som valbyhus snakker om?
den kommer med en fejl når jeg forsøger at lave et billede. noget med error 1004. Method "add" of object "workbooks" failed.
Jeg har fået lavet følgende makro til grafer i excel:
Option Explicit
Sub ExportChart() ' Export a selected chart as a picture Const sSlash$ = "/" Const sPicType$ = ".png" Dim sChartName$ Dim sPath$ Dim sBook$ Dim objChart As ChartObject
On Error Resume Next ' Test if there are even any embedded charts on the activesheet ' If not, let the user know Set objChart = ActiveSheet.ChartObjects(1) If objChart Is Nothing Then MsgBox "No charts have been detected on this sheet", 0 Exit Sub End If
' Test if there is a single chart selected If ActiveChart Is Nothing Then MsgBox "You must select a single chart for exporting ", 0 Exit Sub End If
Start: sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _ "There is no default name available" & vbCr & _ "The chart will be saved in the same folder as this file", "Chart Export", "")
' User presses "OK" without entering a name If sChartName = Empty Then MsgBox "You have not entered a name for this chart", , "Invalid Entry" GoTo Start End If
' Test for Cancel button If sChartName = "False" Then Exit Sub End If
' If a name was given, chart is exported as a picture in the same ' folder location as their current file sBook = ActiveWorkbook.Path sPath = sBook & sSlash & sChartName & sPicType ActiveChart.Export Filename:=sPath, FilterName:="PNG"
Hypersnap, som er et screencaptureprogram, kan du bruge til formålet. Programmet kan du sætte til at køre i baggrunden med hotkeys for forskellige former for captions. Du kan, direkte fra programmet, maile billeder, uploade til en ftp server blot med et klik, og meget andet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.