Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafiken an eine Seite anpassen

Gruppe

Anpassen

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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