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
Liebe Grüße und vielen Dank im Voraus!