- サマリ: Calcで文字の均等割り付けマクロ
- 環境: Calc
- 状態: 解決
- 投稿者: ike@九州?
- 投稿日: 2007-06-11 (月) 16:53:06
質問 
お世話になります
ずばり、Calcでの均等割付マクロはできないでしょうか？
(実際何度も修正しなくては的確な間隔にできません)
現在のセル幅、フォントのサイズ、文字数で一発で割付できればとても使えると思います
Writerで使用のマクロはこちらで見つけましたが
そのまま応用できませんでした
(基本的な部分で理解できてないからだと思います)
回答
- Calcのテキストには文字間隔のプロパティ CharKerning プロパティがありません。そのため文字間隔をいじって均等割り付けにするなどは OOo 2.2 現在ではできないと思われます。両端揃えさえ動かないですね・・・ -- はにゃ??
- 了解しました。文字列を選択反転状態には出来ないでしょうか -- ike@九州?
- InputLine での選択なら可能です。
Sub Main
Dim oDoc As Object
oDoc = ThisComponent
oFrame = oDoc.getCurrentController().getFrame()
oCell = oDoc.getSheets().getByIndex(0).getCellByPosition(0,0)
Dispatch(".uno:FocusInputLine",oFrame)
Dispatch(".uno:SelectAll",oFrame)
End Sub
sub Dispatch( sCommand As String, oLocFrame As Object)
dim dispatcher as object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(oLocFrame, sCommand, "", 0, Array())
end sub
- 素晴らしい！ 有難うございました。FontDialogを自動で開く事が出来ました -- ike@九州?
感想，コメント，メモ
