HERBERS Excel-Forum - die Beispiele

Thema: Grafiken an eine Seite anpassen

Home

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.

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

Beiträge aus dem Excel-Forum zu den Themen Druck und Anpassen

PDF Drucken VBA Wie Dezimalstellen an Potenzen anpassen?
Generierung von Tabs per VBA + Sammeldruck Akt. Datum und Uhrzeit am gedruckten Dokument
Zeile löschen und Bedingung anpassen UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen Bilder in Registerblatt drucken
Webbrowser-Inhalt an Größe des Webbrowser anpassen PDF eventuell Ausdruck sperren?
Druckprobleme.... Datenstruktur aus einer Importstruktur anpassen
Tabellenblätter Ausdruck gruppieren Drucken mit VBA
Zeile von VBA Code anpassen Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken Automatischen Andruck auf Standartdrucker erzeugen
Achsen für Exceldiagramm autom. anpassen Druckerauswahl
Blätter autom. ein-/ausblenden + drucken Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung Userform anpassen
Arbeitsmappendruck Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei Dynamische Comboboxen anpassen
Fehler 1004 beim Druck einer PDF - mit Screenshot Komentareformat automatisch anpassen
Druckeinstellungen für mehrere Drucke übernehmen Formel anpassen
Grafik drucken Mit Change() o. Calculate() Filtern und Drucken
Druckparameter an neue Datei Button zum Ausdrucken
Druckparameter an Datei mitgeben Makro für ereignisabh. Druck verschiedener Seiten
Achsen für Exceldiagramm autom. anpassen Excel Seriendruck im PDF-Format
Per VBA drucken - Adobe PDF on ne0x Drucken, nur wenn Bedingung erfüllt ist!
variablen Druckbereich definieren Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen?? Wann zuletzt ausgedruckt
Excel druckt keine Bilder! sql Ausdruck like
Excel Druckmakro - VBA Experten gesucht CommandButton nicht mit ausdrucken