[gelöst] Grafiken in original Größe mit Makro

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst] Grafiken in original Größe mit Makro

Re: Grafiken in original Größe mit Makro

von Krangel » Di, 16.06.2015 16:51

Hi,
jop, funktinoniert gut.

:D :D Vielen Dank :D :D

Re: Grafiken in original Größe mit Makro

von komma4 » Di, 16.06.2015 16:37

Krangel hat geschrieben:woher weiß denn --> Rechtsklick>Originalgröße die Originalgröße?
Das liegt in den Geheimnissen des Quellcodes 8)
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

von Krangel » Di, 16.06.2015 16:27

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

von komma4 » Di, 16.06.2015 15:22

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?

[gelöst] Grafiken in original Größe mit Makro

von Krangel » Di, 16.06.2015 14:15

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

Nach oben