OOobbs2/41
質問
お世話になります ずばり、Calcでの均等割付マクロはできないでしょうか? (実際何度も修正しなくては的確な間隔にできません) 現在のセル幅、フォントのサイズ、文字数で一発で割付できればとても使えると思います Writerで使用のマクロはこちらで見つけましたが そのまま応用できませんでした (基本的な部分で理解できてないからだと思います) 回答
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
感想,コメント,メモ
|