Grafik + Textfeld einfügen
Verfasst: Fr, 30.09.2011 11:11
Hallo Leutz,
ich will mit Makros eine Grafik und mehrere Textfelder auf der Grafik einfügen. Da ich mich mit Makros nicht anfreunden kann bzw. nicht dahinter komme, wie ich was schreiben soll um ans Ziel zu kommen, brauche ich dringend eure Hilfe.
Mein jetziger Standpunkt ist der, dass ich einen Code gefunden habe, wie ich ein Bild einfügen und seine Position bestimmen kann.
Jetzt habe ich noch drei Fragen.
1. Was muss ich dem Code hinzufügen, dass die Grafik durchläuft (Umlauf -> Durchlauf)?
2. Was muss ich machen, damit ich mehrere Textfelder einfügen und ihr Positionen und Größen bestimmen kann?
3. Besteht die Möglichkeit, dass ich die Textfelder an die Grafik anheften kann? - Sprich, ich sage einem Textfeld zum Beispiel, dass es immer bei der Position x=250 y=250 auf der Grafik bleibt. Also wenn ich der Grafik die Position x=100 y=300 gebe, dass die Textfelder zu ihren vorher definierten Plätzen "mitwandern".
Ich hoffe ihr könnt mir helfen.
Daniel
ich will mit Makros eine Grafik und mehrere Textfelder auf der Grafik einfügen. Da ich mich mit Makros nicht anfreunden kann bzw. nicht dahinter komme, wie ich was schreiben soll um ans Ziel zu kommen, brauche ich dringend eure Hilfe.
Mein jetziger Standpunkt ist der, dass ich einen Code gefunden habe, wie ich ein Bild einfügen und seine Position bestimmen kann.
Code: Alles auswählen
'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
'Dim Dispatcher As New com.sun.star.awt.Dispatcher 'Hier fehlt umlauf und dann unten noch ...currency
'dim dispatcher as object
Sub BildEinfuegen
Doc = ThisComponent
Page = Doc.drawPage
GraphicObjectShape = Doc.createInstance("com.sun.star.drawing.GraphicObjectShape")
Size.Width = 13800
Size.Height = 9500
GraphicObjectShape.Size = Size
Point.x = 0
Point.y = 0
GraphicObjectShape.Position = Point
sURL = "Dateipfad"
GraphicObjectShape.GraphicURL = sURL
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustGreen = 0
GraphicObjectShape.AdjustBlue = 0
GraphicObjectShape.AdjustContrast = 0
GraphicObjectShape.AdjustLuminance = 0
GraphicObjectShape.Transparency = 0
GraphicObjectShape.AnchorType=0
GraphicObjectShape.Name = "Testbild_1.jpg"
GraphicObjectShape.IsFollowingTextFlow (true)
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
Page.add(GraphicObjectShape)
dim document as object
dim dispatcher as object
document = GraphicObjectShape
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
End Sub
1. Was muss ich dem Code hinzufügen, dass die Grafik durchläuft (Umlauf -> Durchlauf)?
2. Was muss ich machen, damit ich mehrere Textfelder einfügen und ihr Positionen und Größen bestimmen kann?
3. Besteht die Möglichkeit, dass ich die Textfelder an die Grafik anheften kann? - Sprich, ich sage einem Textfeld zum Beispiel, dass es immer bei der Position x=250 y=250 auf der Grafik bleibt. Also wenn ich der Grafik die Position x=100 y=300 gebe, dass die Textfelder zu ihren vorher definierten Plätzen "mitwandern".
Ich hoffe ihr könnt mir helfen.
Daniel