Bild per VBA in Kopzeile einbinden

With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeaderPicture.Filename = "C:\Users\Benutzer1\in\allg. Dokumente - Dokumente\Vorlagen\Logo_klein.jpg" .RightHeader = "&G" '.RightHeaderPicture.LockAspectRatio = True .RightHeaderPicture.Height = 480 .RightHeaderPicture.Width = 184 .LeftFooter = "" .CenterFooter = "&""Arial,Fett""&P von &N" .RightFooter = "" End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

das fragst du jetzt nicht ernsthaft, oder?
wie hast du es geschafft, das Makro zu schreiben, mit dem das Bild eingebunden wird?
Jungfrauengeburt?

ok, du weißt, wie du Eigenschaften verändern kannst, sonst hättest du dieses Makro nicht schreiben können.
Wenn man eine Eigenschaft setzen kann mit ...Eigenschaft = "xxx" dann kann man sie immer auch genauso auslesen, beispielsweise für die Ausgabe in einer Messagebox:

Msgbox Eigenschaft

oder im direktfenster

Debug.print Eigenschaft

oder für die weitere Verwendung in eine Variable einlesen.

x =  Eigenschaft

Wenn man jetzt nicht weiß, wie eine bestimmte Eigenschaft genau heißt, dann kann man sich damit behelfen, dass du diese Eigenschaft von Hand veränderst und das mit dem Recorder aufzeichnest.
dann schaust du dir den aufgezeichneten Code an und suchst nach einer Eigenschaft, die in Frage kommen könnte, hier also irgendwas mit "Zoom". Oder du suchst nach dem eingstellten Wert, wenn du die Zoomstufe auf 79% gestellt hast, und im aufgezeichneten Code taucht an einer Stelle die 79 auf, dann spricht einiges dafür, dass diese Eigenschaft dann die Zoomstufe ist (muss natürlich geprüft werden).
Oder man schaut einfach mal in die Hilfe. Die bekommt man ja auf Tastendruck (F1).

Gruß Daniel

Sub test() Dim i As Long With ActiveSheet.PageSetup For i = 100 To 20 Step -1 Application.PrintCommunication = False .Zoom = i Application.PrintCommunication = True If ActiveSheet.VPageBreaks.Count = 0 Then Exit For Next MsgBox .Zoom End With End Sub

ActiveSheet.UsedRange.EntireColumn.AutoFit Dim Breite As Double Breite = 0 For T = 1 To LetzteSpalte Breite = Breite + Cells(1, T).ColumnWidth Next T Zoomfaktor = 100 / Breite * 135 If Zoomfaktor > 100 Then Zoomfaktor = 100 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeaderPicture.Filename = "C:\Users\in\allg. Dokumente - Dokumente\Vorlagen\Logo_klein.jpg" .RightHeader = "&G" .RightHeaderPicture.Height = 384 / Zoomfaktor * 100 .RightHeaderPicture.Width = 147.2 / Zoomfaktor * 100 .LeftFooter = "" .CenterFooter = "&""Arial,Fett""&P von &N" .RightFooter = "" End With With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False End With

auch ne sehr gute Idee...
dazu fallen mir gleich zwei Verbesserungen ein:

1. verwende .Width anstelle von .ColumnWidth
das ist die Breite in Pixeln (ColumnWidth = Anzahl sichbare Zahlen in Standardschrift) und diese kann auch über einen größeren Zellbereich ermittelt werden. Damit solltest du genauer sein, weil auch die Ränder mit berücksichtig werden und du brauchst die Schleife nicht:

Breite = Columns(1).Resize(, letzteSpalte).Width

2. um einen guten Referenzwert für den With-Wert eines Blattes zu bekommen, kannst du ja mal die Spaltenbreite möglichst schmal machen, dann in die Seitenumbruchsvorschau gehen und schauen, wo der Seitenwechsel ist, dann ermittelst du den .Width-Wert für diesen Zellbereich.

damit solltest du dann relativ präzise den notwendigen Zoomfaktor berechnen können.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Bild per VBA in Kopzeile einbinden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild per VBA in Kopzeile einbinden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread