Seite 1 von 1
Grafiken Inhalt, Position, Größe fest"nageln"
Verfasst: Mo, 19.05.2025 10:41
von Albert15
Bei der Übersetzung mit DeepL
verlieren Grafiken die Einstellungen für Inhalt, Position, Größe.
Das möchte ich mit einem Makro beseitigen.
Denn in meinen Büchern gibt es mehr 250 Grafiken.
Ich stelle mir das so vor, dass ich auf das Bild klicke und kann dann aus einem Kontext,
oder neben dem Bild das Makro aufrufen.
Wer könnte so ein Makro erstellen.
Albert
Re: Grafiken Inhalt, Position, Größe fest"nageln"
Verfasst: Mo, 19.05.2025 19:01
von mikeleb
Hallo,
so z. B. würde alle Bilder in der Datei bzgl. Inhalt, Position, Größe geschützt
Code: Alles auswählen
sub bild_schutz
oDoc=ThisComponent
oDraw=oDOc.Drawpage
for i=0 to oDraw.Count-1
oElement=oDraw(i)
if oElement.supportsService("com.sun.star.text.T extGraphicObject") then
with oElement
.PositionProtected=True
.SizeProtected=True
.ContentProtected=True
end with
end if
next
end sub
oder, wenn es nur um das gerade ausgewählte Bild geht:
Code: Alles auswählen
sub bild_schutz2
oDoc=ThisComponent
oElement=oDoc.CurrentSelection
if oElement.supportsService("com.sun.star.text.TextGraphicObject") then
with oElement
.PositionProtected=True
.SizeProtected=True
.ContentProtected=True
end with
end if
end sub
Re: Grafiken Inhalt, Position, Größe fest"nageln"
Verfasst: Mi, 21.05.2025 11:16
von Gast
Hallo Mikeleb,
Code: Alles auswählen diese Version wäre es.
Ist das der Code für eine Bas?
Albert
Re: Grafiken Inhalt, Position, Größe fest"nageln"
Verfasst: Mi, 21.05.2025 15:03
von mikeleb
Hallo,
ja, es ist ein StarBasic-Makro.