Gruppe
Druck
Problem
Wie kann ich Grafiken so verkleinern, daß sie auf eine Druckseite passen? Die Option "Anpassen" aus dem "Seite-enrichten"-Dialog soll nicht zur Lösung heranezogen werden.
StandardModule: basMain
Sub Anpassen()
Dim oPct As Picture
MsgBox "Vor der Anpassung"
ActiveSheet.PrintPreview
Set oPct = ActiveSheet.Pictures(1)
While ExecuteExcel4Macro("Get.Document(50)") > 1
oPct.Height = oPct.Height * 90 / 100
oPct.Width = oPct.Width * 90 / 100
Wend
MsgBox "Nach der Anpassung"
ActiveSheet.PrintPreview
End Sub