Druckbereich für Grafiken per VBA automatisch fest

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Gedankenspielereien

19.08.2015 16:59:13

Michael

AW: Gedankenspielereien

20.08.2015 09:01:20

Benny

Gedankenspielereien - eher Logik als Excel

20.08.2015 13:43:57

Michael

Nachtrag

21.08.2015 14:27:22

Michael

AW: Nachtrag

24.08.2015 11:26:18

Benny

Na, dann so

25.08.2015 21:02:52

Michael

AW: Na, dann so

26.08.2015 09:47:16

Benny

AW: Na, dann so

26.08.2015 09:49:34

Benny

Hi Benny,
die "Detailblätter" sind Excel-Datein bzw. - Blätter?!
Ich nehme an, daß Du keine Bilder auf x Ausdrucke zerstückeln möchtest, so daß Du sicher printToFit auf 1 Seite eingestellt hast.
Das führt bei sehr großen Grafiken aber dazu, daß evlt. auch vorhandener Text auf unlesbar kleine Größe eingedampft wird.
Was hältst Du von dem Ansatz, die Grafiken auf eine passende Größe zu skalieren? Dann kannst Du nämlich mit konstantem Druckbereich arbeiten.
Setz das Makro mal in ein Tabellenblatt, in dem eine Grafik vorhanden ist und ändere den Namen der Grafik (in der Variablen grafik) entsprechend ab. Die Ausgabe erfolgt im Direktfenster (VB-Editor: Strg+g oder unter Ansicht/...).
Der Code:


Option Explicit
Sub GrafikResize()
Dim grafik As String
Dim ist_x As Double, faktor As Double
Const max_x As Double = 600
grafik = "Bild 2"
' Originalgröße der Grafik einstellen:
Shapes(grafik).ScaleHeight 1, msoTrue
Shapes(grafik).ScaleWidth 1, msoTrue
' und ausgeben:
Debug.Print "Originalgröße:"
Debug.Print Shapes(grafik).Height
ist_x = Shapes(grafik).Width
Debug.Print ist_x
' Größe ändern
faktor = max_x / ist_x
Debug.Print "Und nach Änderung:"
Shapes(grafik).ScaleHeight faktor, msoTrue
Shapes(grafik).ScaleWidth faktor, msoTrue
Debug.Print Shapes(grafik).Height
Debug.Print Shapes(grafik).Width
End Sub

Die Ausgabe bei meiner nächstbesten Beispielgrafik sieht so aus:

Originalgröße:
576
768
Und nach Änderung:
449,25
599,25

Eine ggf. sinnvolle Abfrage in y-Richtung überlasse ich Dir.
Schöne Grüße,
Michael

Hallo Michael,
vielen Dank für die schnelle Rückantwort.
Leider reicht mein Excel Wissen wahrscheinlich nicht aus um Deine Rückantwort zu verstehen. Ich habe auch das Gefühl, dass ich wahrscheinlich mein Problem nicht konkret genug beschrieben habe, deshalb versuche ich es noch einmal.
Es gibt ein HAUPT Tabellenblatt wo div. Einträge vorhanden sind. In diesem HAUPT Tabellenblatt gibt es wiederum einige Zellen wo ich einem Rahmen ein Makro zugeordnet habe, damit der User darüber in ein anderes Tabellenblatt springen kann.

Private Sub Goto2FA()
If Not Sheets("2FA").Visible Then
Sheets("2FA").Visible = True
End If
Sheets("2FA").Select
Range("A1").Select
End Sub

In diesen ca. 50 Tabellenblättern sind überwiegend Grafiken (*.png) eingefügt worden, die nur eine kleine Text-Überschrift haben.
Jetzt kommt das eigentliche Problem.
Wenn ich einen Druckbereich festlegen möchte in einem Tabellenblatt wo NUR Text vorhanden ist dann kann ich den äußeren Druckbereich über "Strg. + Shift + Ende" definieren.
Wie kann ich einen Druckbereich automatisch per VBA definieren, wenn die Grafiken außerhalb des o.g. Druckbereich sind, sie aber zu dem Ausdruck dazu gehören?
Dieses Makro sollte am besten universal für alle 50 + n Tabellenblätter funktionieren und die Auswahl anbieten es in DIN A4 hoch/quer und DIN A3 hoch/quer ausdrucken zu können.
Ich hoffe ich habe mich jetzt deutlicher ausgedrückt und hoffe das Du mir trotzdem hilfst.
Vielen Dank für Deine Mühe.
beste Grüße
Benny

Option Explicit Sub PA_Anpassen_Schleife() Dim shp As Shape Dim a As Variant Dim s As String Dim maxr&, maxc&, r&, c& Dim sh As Worksheet For Each sh In Worksheets s = sh.PageSetup.PrintArea If Len(s) maxc Then maxc = c If r > maxr Then maxr = r End If Next MsgBox "Tabellenblatt: " & sh.Name & vbLf & _ "Printarea original: " & s & vbLf & _ "Printarea neu: " & a(0) & ":" & sh.Cells(maxr, maxc).Address End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Druckbereich für Grafiken per VBA automatisch fest

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread