Seite 1 von 1
[gelöst] Grafiken in original Größe mit Makro
Verfasst: Di, 16.06.2015 14:15
von Krangel
Hallo,
ich möchte mit einem Makro Grafiken in original Größe mit einem Tabellen Dokument verknüpfen.
Ich finde keine Möglichkeit, die originale Größe einzustellen.
Das ist der Code, den ich mir zusammen gebastelt habe.
Code: Alles auswählen
DIM sFolderUrl as string ' Pfad
Dim Page As Object
Dim GraphicObjectShape As Object
Dim Point As New com.sun.star.awt.Point
Dim Size As New com.sun.star.awt.Size
Sub Grafik_einfuegen
i = 1
Aktueller_pfad ' holt den aktuellen Pfad
Doc = ThisComponent
Page =thisComponent.sheets(0).DrawPage
GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
Size.Width = 5290 'Grösse
Size.Height = 12170 'Grösse
GraphicObjectShape.Size = Size
Point.x = 12000 'Position
Point.y = 200 'Position
GraphicObjectShape.Position = Point
GraphicObjectShape.GraphicURL = sFolderUrl & "Berg Inverntar.png"
GraphicObjectShape.Name = "Grafik" & i
Page.add(GraphicObjectShape)
End Sub
Grüße
Re: Grafiken in original Größe mit Makro
Verfasst: Di, 16.06.2015 15:22
von komma4
Eine Verlinkung zu einem PNG hält leider die Original-Grösse im Objekt nicht vorrätig (andere Formate tun das).
Was Du machen kannst:
a) nach dem Einfügen das Objekt selektieren
b) mit einem
dispatcher Kommando die Aktion
Rechtsklick>Originalgrösse nachempfinden, also:
Code: Alles auswählen
' Selektion des gerade eingefügten Objekts
ThisComponent.CurrentController.select(GraphicObjectShape)
' Idee: DannyB, 2004-11-04 oooforum.org
' Objekte für Dispatcher
oDoc = ThisComponent
oDocCtrl = oDoc.getCurrentController()
oDocFrame = oDocCtrl.getFrame()
'
oDispatchHelper = createUnoService( "com.sun.star.frame.DispatchHelper" )
oDispatchHelper.executeDispatch( oDocFrame, ".uno:OriginalSize", "", 0, Array() )
Das hilft?
Re: Grafiken in original Größe mit Makro
Verfasst: Di, 16.06.2015 16:27
von Krangel
Hi,
also verstehen tue ich das nicht, woher weiß denn --> Rechtsklick>Originalgröße die Originalgröße?
Helfen würde es, wenn man per Makro die Grafik markieren könnte.
ความนับถือ
Re: Grafiken in original Größe mit Makro
Verfasst: Di, 16.06.2015 16:37
von komma4
Krangel hat geschrieben:woher weiß denn --> Rechtsklick>Originalgröße die Originalgröße?
Das liegt in den Geheimnissen des Quellcodes
Dass es bei PNG nicht anders geht (weil die Grösse nicht in dem BASIC-Objekt hinterlegt ist) - mag ein Bug sein...
Die Zeile
ThisComponent.CurrentController.select(GraphicObjectShape), am Ende Deines Makros zugefügt, selektiert das gerade eingefügte Objekt, die restlichen Zeilen rufen die Originalgrösse ab.
ขอบคุณ
Re: Grafiken in original Größe mit Makro
Verfasst: Di, 16.06.2015 16:51
von Krangel
Hi,
jop, funktinoniert gut.
Vielen Dank