- サマリ: 画像の挿入でのサイズ指定
- 環境: Calc
- 状態: 解決
- 投稿者: suou?
- 投稿日: 2014-08-07 (木) 13:04:02
質問 
画像の挿入に関して、「.uno:InsertGraphic コマンドで挿入する方法もあります。この場合、画像はセルカーソルのある位置になります。また、サイズは原寸サイズです。」とご説明があります。
この場合、サイズを指定することはできますか？あれば、その方法を教えていただきたいのですが。
回答
- コマンドで挿入する際に一緒にサイズを指定する方法はありません。挿入後にサイズを設定してください。 指定可能なプロパティは以下のもののみです。
(SfxStringItem FileName SID_INSERT_GRAPHIC,SfxStringItem FilterName FN_PARAM_FILTER,
SfxBoolItem AsLink FN_PARAM_1,SfxStringItem Style FN_PARAM_2)
このうち、Style は使用されているかどうか不明です。
感想，コメント，メモ
- com.sun.star.drawing.GraphicObjectShape サービスをインスタンス化して図形描写オブジェクトとしてターゲットのシートのドローページに挿入する方法をとることにしました。カーソル位置に挿入できる点が.uno:InsertGraphic コマンドで挿入する方法の便利な点なのですが、これは諦め、固定位置に、画像を指定したサイズで挿入で代替しました。いつもすばやい回答を頂き、本当にありがとうございます。 -- suou
- Calc ドキュメントの場合、画像を挿入するとドローページ上に挿入されます。その時、ドローページの図形コンテナの最後に挿入されることになります。コマンドで挿入直後に最後の図形の画像サイズを変更するといいかもしれません。 -- はにゃ?
- 「最後の図形」をヒントに次のモジュールにより、"FotoPage"シートに挿入した画像を削除することが出来ました。これでFotoPageシートを台紙として空にしておくことが出来ます。とても嬉しいです。ありがとうございました。
Sub ShapeRemoveGraph()
dim drawpage as object, shape as object, aSheet as object
Set aSheet = ThisComponent.Sheets.getByName("FotoPage")
drawpage = aSheet.getDrawPage()
Set shape= drawpage.getByIndex(drawpage.getCount()-1)
drawpage.remove(shape)
End Sub
