ich erzeuge in Excel (Version 2003) in einem Workbook ca. 20
verschiedene Ansichten auf eine Quelldatei. Diese Ansichten
kopiere ich dann mit „umschalt“ und Menü „bearbeiten“ als Bild
in Power-Point. Damit ich das nicht jedes Mal wieder machen
muss, hätte ich gerne ein Makro, das automatisch in jedem
Arbeitsblatt die Tabelle markiert und als Grafik (gif oder
jpeg) in einem Extra-Dateiordner abspeichert.
Bei Diagrammen ist das möglich, geht es auch bei Tabellen?
Hi Tina,
probier diese zwei prozeduren mal aus, IrfanView gibts kostenlos im Internet.
Option Explicit
'
Sub ZuIrfanView()
Dim S As Double
Selection.Copy
S = Shell("C:\Programme\IrfanView\i\_view32.exe", vbMaximizedFocus)
Application.SendKeys "^v"
End Sub
'
Sub ZuPP()
Dim appPP As Object, Slide As Object
Selection.CopyPicture
Set appPP = CreateObject("PowerPoint.Application")
With appPP
.Visible = True
.Presentations.Add
.ActivePresentation.Slides.Add 1, ppLayoutBlank
Set Slide = .ActivePresentation.Slides(1)
Slide.Shapes.Paste
End With
End Sub
Gruß
Reinhard