create a new page, using OOoBasic/Calc/image as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
* 画像挿入 [#y00a6b1e]
Calc のシート上に画像を挿入します。図形描写オブジェクトを...
#contents
** 画像図形描写オブジェクト [#ffe9d4a0]
com.sun.star.drawing.GraphicObjectShape サービスをインス...
Sub InsertPictureOnSheet
doc = ThisComponent
sheet = doc.getSheets().getByIndex(0)
drawpage = sheet.getDrawPage()
Dim aSize as new com.sun.star.awt.Size
Dim aPos as new com.sun.star.awt.Point
shape = doc.createInstance("com.sun.star.drawing.Graphi...
shape.GraphicURL = ConvertToURL("/home/asuka/Pictures/t...
' in 1/100 mm
aSize.Width = 1000
aSize.Height = 1000
aPos.X = 1000
aPos.Y = 1000
shape.Size = aSize
shape.Position = aPos
drawpage.add(shape)
End Sub
画像ファイルの URL を GraphicURL プロパティに指定します。...
この方法では、事前に画像のサイズを知っていなければ原寸サ...
または、GraphicURL を指定する代わりに css.graphic.Graphic...
** コマンドで挿入 [#b653af69]
.uno:InsertGraphic コマンドで挿入する方法もあります。この...
Sub InsertGraphicByCommand
doc = ThisComponent
frame = doc.getCurrentController().getFrame()
dispatcher = CreateUnoService("com.sun.star.frame.Dispa...
sURL = ConvertToURL("/home/asuka/Pictures/test.png")
Dim args(1) as new com.sun.star.beans.PropertyValue
args(0).Name = "FileName"
args(0).Value = sURL
args(1).Name = "AsLink"
args(1).Value = False
dispatcher.executeDispatch(frame, ".uno:InsertGraphic",...
End Sub
End:
* 画像挿入 [#y00a6b1e]
Calc のシート上に画像を挿入します。図形描写オブジェクトを...
#contents
** 画像図形描写オブジェクト [#ffe9d4a0]
com.sun.star.drawing.GraphicObjectShape サービスをインス...
Sub InsertPictureOnSheet
doc = ThisComponent
sheet = doc.getSheets().getByIndex(0)
drawpage = sheet.getDrawPage()
Dim aSize as new com.sun.star.awt.Size
Dim aPos as new com.sun.star.awt.Point
shape = doc.createInstance("com.sun.star.drawing.Graphi...
shape.GraphicURL = ConvertToURL("/home/asuka/Pictures/t...
' in 1/100 mm
aSize.Width = 1000
aSize.Height = 1000
aPos.X = 1000
aPos.Y = 1000
shape.Size = aSize
shape.Position = aPos
drawpage.add(shape)
End Sub
画像ファイルの URL を GraphicURL プロパティに指定します。...
この方法では、事前に画像のサイズを知っていなければ原寸サ...
または、GraphicURL を指定する代わりに css.graphic.Graphic...
** コマンドで挿入 [#b653af69]
.uno:InsertGraphic コマンドで挿入する方法もあります。この...
Sub InsertGraphicByCommand
doc = ThisComponent
frame = doc.getCurrentController().getFrame()
dispatcher = CreateUnoService("com.sun.star.frame.Dispa...
sURL = ConvertToURL("/home/asuka/Pictures/test.png")
Dim args(1) as new com.sun.star.beans.PropertyValue
args(0).Name = "FileName"
args(0).Value = sURL
args(1).Name = "AsLink"
args(1).Value = False
dispatcher.executeDispatch(frame, ".uno:InsertGraphic",...
End Sub
Page:
