leider bin ich kein VB Progammmierer !
Ich möchte einen Bereich A10-E20 Kopieren und als Bild immer auf der 5 Seite (ohne Abfrage der Seite in PPT) absetzen. (Ausführung A)
Ich möchte einen Bereich A10-E20 Kopieren und als Bild immer auf der 5 Seite (---mit----Abfrage der Seite in PPT) absetzen. (Ausführung B)
Das Bild soll immer von rechts 10 und von oben 15 cm in die PPT eingesetz werden.
...ich habe zwar ein Makro gefunden welches ich leider nicht anpassen kann.
Sub TabelleZuPowerPoint()
' Verweis auf Microsoft PowerPoint 14.0 Object Library
Dim Pp As PowerPoint.Application
Dim Praes As PowerPoint.Presentation
Dim Folie As PowerPoint.Slide
Dim ppTab As PowerPoint.Shape
Worksheets(10).Range("A15:E25").Copy
Set Pp = CreateObject("Powerpoint.Application")
Pp.Visible = True
Set Praes = Pp.Presentations.Add
Pp.ActiveWindow.ViewType = ppViewSlide
Set Folie = Praes.Slides.Add(1, ppLayoutTitleOnly)
Folie.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
Set ppTab = Folie.Shapes(Folie.Shapes.Count)
ppTab.Left = 234
ppTab.Top = 186
''PowerPoint-Präsentation speichern und schließen
'With Praes
' .SaveAs '"C:\My Documents\MyPreso.ppt"
' .Close
'End With
''PowerPoint beenden
'Pp.Quit
'Variablen rücksetzen
Set Folie = Nothing
Set Praes = Nothing
Set Pp = Nothing
End Sub