Witam,
Potrzebuję osadzić (nie zlinkować, tak jak jest to w kodzie poniżej) plik swf
flashowy do arkusza calc. Chcę to oczywiście zrobić z poziomu kodu basic.
Jak to zrobić, żeby plik był osadzony w dokumencie? Proszę o pilną pomoc!!!
Sub test()
dim a as Object
a=ThisComponent.CreateInstance("com.sun.star.drawing.PluginShape")
ThisComponent.Sheets.getByIndex(0).drawpage.add(a)
aPoint=createUnoStruct("com.sun.star.awt.Point")
aSize=createUnoStruct ("com.sun.star.awt.Size")
aPoint.X=0
aPoint.Y=0
aSize.Width=1000
aSize.Height=1000
a.setPosition(aPoint)
a.setSize(aSize)
a.PluginURL=ConvertToURL("C:\przykladowyplik.swf")
End Sub
Pozdrawiam
Jacek D.
--
Unsubscribe instructions: E-mail to [email protected]
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/pl/users/
All messages sent to this list will be publicly archived and cannot be deleted
