Grafik einfügen und Seitenverhältnis entsperren
30.08.2017 10:08:22
Andrea
Ich würde gerne wissen wie man per VBA Code das Seitenverhältnis einer Grafik entsperrt. Ich kopiere eine Liste aus Excel und füge Sie als Grafik in Powerpoint ein und dann möchte ich, dass diese Grafik eine bestimmte Größe hat. Mein Code funktioniert aber nicht weil sich beim Einfügen in Powerpoint das Seitenverhältnis sperrt und der Haken bei Relativ zur Originalbildgröße drin ist. Wie kann ich die beiden Haken löschen? Wie kann ich den Befehl in diesen Code einfügen?
Vielen Dank bereits für Eure Hilfe!
Sub EinfügenGrafik()
Set PptProg = CreateObject("Powerpoint.Application")
PptProg.Visible = True
PptProg.Presentations.Open Filename (Pfad rausgenommen)
PptProg.ActivePresentation.Slides(3).Select
ThisWorkbook.Worksheets("ranking chart_NA").Activate
Range("J36:J55").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.CopyPicture
Index = 2 - 300
PptProg.ActiveWindow.View.GotoSlide Index:=3
PptProg.ActiveWindow.Selection.SlideRange.Shapes(1).Select
PptProg.ActiveWindow.Selection.Unselect
PptProg.ActiveWindow.View.Paste
With PptProg.ActiveWindow.Selection.ShapeRange
.IncrementLeft -189.34
.IncrementTop -34.375
End With
With PptProg.ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.84, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.0043, msoFalse, msoScaleFromTopLeft
End With
End Sub