VBA PasteSpecial - Titel verschiebt sich
19.08.2014 14:02:28
Marcus
Ich möchte Diagramme einer Excel-Datei per Makro in eine vorgefertigte PPT-Präsentation als Metadatei einfügen. Funktioniert soweit auch alles ganz gut, nur ein Problem bekomm ich einfach nich in den Griff. Es verschiebt sich der Titel der Folie, bzw. das Textfeld vergrößert sich, es ist so, als hätte man das Bild in das Titelfeld eingefügt. Manchmal verschieben sich auch die Seitenzahlen.
Hoffe Ihr könnt mir weiterhelfen! Anbei der Code:
Private Sub CommandButton1_Click()
Dim pptApp As Object, pptPres As Object
Dim chtObj As Object, shp As Object, i
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPres = pptApp.Presentations.Open("X:...........pptx")
Sheets("Auswertung").Select
For Each chtObj In ActiveSheet.ChartObjects
chtObj.CopyPicture xlScreen, xlBitmap
Set pptslide = pptPres.Slides(i)
pptslide.Shapes.PasteSpecial DataType:=wdPasteEnhancedMetafile
With pptslide.Shapes(1)
.Top = 100
.Left = 5
.Height = 383
.Width = 709.5
End With
If i = 20 Then
Exit For
End If
Next
pptApp.Visible = True
End Sub
Vielen Dank!
Marcus