Bild Positionierung
20.01.2020 09:32:42
TomatenAugen
ich würde gerne eine Bilddatei auf die Größe eines Excelblattes skalieren und positionieren. Mein bisheriger Code:
Sub Zoom()
If objShp.AlternativeText = "" Then
With objShp
.Top = ActiveWindow.ScrollRow
.Left = ActiveWindow.ScrollRow
.Height = ActiveWindow.UsableHeight
.Width = ActiveWindow.UsableWidth
End With
end with
End Sub
Mein Problem ist folgendes: Das Bild soll zu der sichtbaren ersten Zelle hin verschoben werden. ScrollRow gibt mit jetzt beispielsweise Zeile 10 raus. Da der Abstand .Top aber in Punkten und nicht in Zellen gemessen wird packt er mir das Bild 10 Punkte vom Anfang entfernt. Kennt jemand einen Befehl, mit dem ich die Grafik an den oberen Rand des zu sehenden Zellenbereiches packen kann?Liebe Grüße und vielen Dank im Voraus!