Danke,
das funktioniert mit einigen Anpassungen an meine Gegebenheiten. Ich
konnte das Foto austauschen.
Am 26.09.2020 um 20:48 schrieb Jörg Schmidt:
Sub Main
x = ThisComponent.Sheets(0).DrawPage
for i = 0 to x.Count -1
xx = x.getByIndex(i)
With xx.Anchor.CellAddress
If .Column = 12 AND .Row = 6 Then 'M7
'Msgbox xx.GraphicURL
xx.GraphicURL =
ConvertToURL("G:\bilder\dasBild123.jpg")
End If
End With
next i
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
