Bildgröße in Kopfzeile dynamisch anpasse
13.10.2022 15:20:18
Günther
ich benötige mal wieder Eure Hilfe.
Ich platziere ein Bild in der Kopfzeile und gebe eine Größe für diese an, z.b. LeftHeaderPichtue.Height = 30. Die Logos wechseln je nach Kunde. Bei der starren Bildgröße bzw. Platzhalter für das Bild, werden diese, je nach Bild, auch verzerrt.
Gibt es denn eine Möglichkeit die Bilder dynamisch an die Größe der Kopfzeilen-Zelle anzupassen, damit das Bild nicht verzerrt wird?
Sub Firmenlogo_in_Kopfzeile()
Dim kd As String
kd = ThisWorkbook.Worksheets("!Deckblatt").Range("D7")
kd_path = "C:\temp\test\"
With Worksheets("Arbeitsblatt C1").PageSetup
.LeftHeaderPicture.FileName = kd_path & kd & "\logo\logo.jpg"
.LeftHeader = "&G"
Worksheets("Arbeitsblatt C1").PageSetup.LeftHeaderPicture.LockAspectRatio = False
Worksheets("Arbeitsblatt C1").PageSetup.LeftHeaderPicture.Height = 30
Worksheets("Arbeitsblatt C1").PageSetup.LeftHeaderPicture.Width = 50
End With
End Sub
Günther
