Top > OOobbs2 > 41

OOobbs2/41 Edit

  • サマリ: Calcで文字の均等割り付けマクロ
  • 環境: Calc
  • 状態: 解決
  • 投稿者: ike@九州?
  • 投稿日: 2007-06-11 (月) 16:53:06

質問 Edit

お世話になります ずばり、Calcでの均等割付マクロはできないでしょうか? (実際何度も修正しなくては的確な間隔にできません) 現在のセル幅、フォントのサイズ、文字数で一発で割付できればとても使えると思います

Writerで使用のマクロはこちらで見つけましたが そのまま応用できませんでした (基本的な部分で理解できてないからだと思います)

回答 Edit

  • Calcのテキストには文字間隔のプロパティ CharKerning プロパティがありません。そのため文字間隔をいじって均等割り付けにするなどは OOo 2.2 現在ではできないと思われます。両端揃えさえ動かないですね・・・ -- はにゃ?? 2007-06-11 (月) 19:05:28
  • 了解しました。文字列を選択反転状態には出来ないでしょうか -- ike@九州? 2007-06-12 (火) 09:10:32
  • 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
  • はにゃ?? 2007-06-13 (水) 20:57:44
  • 素晴らしい! 有難うございました。FontDialogを自動で開く事が出来ました -- ike@九州? 2007-06-18 (月) 08:12:54

感想,コメント,メモ Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes