OpenOffice.info

st es nun noch möglich, alle Grafiken per Makro gleichzeitig mit einer Umrandung zu versehen, vielleicht in einem gesonderten Makro?

Das ist sogar ohne Makro-geschwurbel in einem Rutsch machbar……diesen beiden Codezeilen:


oImage = oShape.FrameStyleName
if oImage = "Graphics" then ...

Hallo
Dann schau dir die folgenden drei Zeilen Code nochmal genauer an…eine davon kann weg…und bei den beiden anderen ersetzt du den Teil hinter dem =zeichen durch die gewünschten Zahlen.

nScale = 3000 / oShape.Height
oSize.Width = oshape.Width * nScale
oSize.Height = oshape.Height * nScale ...

Hallo. ich habe von Makros und dergleichen null Ahnung und habe folgende Fragen:
Ich möchte mir gerne eine menge Arbeit ersparen und in meinen Dokumenten alle Grafiken einheitlich auf die gleiche Größe bringen.
Nun habe ich folgendes Makro hier gefunden:

Sub Set_Graphics_to_UserDefined_Size
Dim ...