Bilder verkleiner (komprimieren)
Pepi
Ich habe eine Exceldatei mit vielen Tabellen und noch mehr Bildern, die mittlerweile auf über 15MB angewachsen ist. Vermutlich sind einzelne bilder zu gross.
Ich wollte mit dem folgenden Marko die Bilder verkleinern, doch wird bei bei jedem Bild wieder der Dialog angezeigt und ich muss Enter drücken.
Wenn ich das Häkchen für die Option "Nur für dieses Bild anwenden" entferne, wird gar nichts komprimiert.
Gibt es eine Möglichkeit, anzugeben wie gross die Bilder sein sollen, die sich in einer Schlaufe anwenden lässt.
Sub Bilder_Verkleinern()
Dim oShp As Shape
For Each oShp In ActiveSheet.Shapes
oShp.Select
Application.SendKeys "{Enter}"
Application.CommandBars.ExecuteMso "PicturesCompress"
Next
End Sub
Vielen Dank für eine gute LösungPepi