Moin,
ich habe folgenden Code geschrieben:
Set LogoRange = .Range(.Cells(Hoehe * (Zeile - 1) + 12, Breite * (Spalte - 1) + 1), _
.Cells(Hoehe * (Zeile - 1) + 13, Breite * (Spalte - 1) + 2))
Set Logo = .Pictures.Insert(Firma_Logo)
With Logo
.ShapeRange.LockAspectRatio = msoFalse
.Width = LogoRange.Width
.Height = LogoRange.Height
.Top = Rows(LogoRange.Row).Top
.Left = Columns(LogoRange.Column).Left
End With
Die Range rückt immer weiter und es wird danach ein Logo von der URL eingesetzt. Diesem Logo würde ich nun gerne direkt eine URL mitgeben. Wie mache ich dies?
Danke !!