ich brauche Hilfe in Bezug auf diesen Thread: viewtopic.php?f=5&t=18770
folgendes Szenario:
Ein Snapshot aus einem PDF-Reader in Form eines Bitmaps soll über die Zwischenablage in ein Dokument eingefügt werden.
Diese Aktion erfolgt dreimal, gemäß folgendem Ablaufplan:
A)
- Bitmap aus Systemclipboard einfügen
- Bitmap zuschneiden
- Bitmapgröße ändern
- Bitmap an seine Zielposition verschieben
- Bildmarkierung aufheben
- Bitmap aus Systemclipboard einfügen
- Bitmap zuschneiden
- Bitmapgröße ändern
- Bitmap an seine Zielposition verschieben
- Bildmarkierung aufheben
- Bitmap aus Systemclipboard einfügen
- Bitmap zuschneiden
- Bitmapgröße ändern
- Bitmap an seine Zielposition verschieben
- Bildmarkierung aufheben
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
rem ----------------------------------------------------------------------
rem define variables
Dim oDoc as object
Dim oCC as object
Dim oFrame as Object
Dim dispatcher as object
oDoc= ThisComponent
oCC=oDoc.CurrentController
' mri oDoc
' mri occ
rem ----------------------------------------------------------------------
rem get access to the document
oFrame = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(oFrame, ".uno:Paste", "", 0, Array())
End Sub
Mimetype zum Beispiel: application/x-openoffice;windows_formatname="Bitmap"
Dieses konte ich auch nicht umsetzen:
The next example shows this for a bitmap.
Das Makro für das Zuschneiden, usw. ist bereits fertig.
Es fehlen mir die folgende Methoden:
- Bitmap aus Zwischablage einfügen.
- Markierung/ Selektion des eingefügten Bildes aufheben.
Gruß
David