選択範囲の幅、高さを調べるマクロの実験 LibreOffice Calc Basic

選択範囲の幅、高さを調べるマクロの実験　LibreOffice Calc Basic

• 参考サイト　ttp://okwave.jp/qa/q5720685.html
• 質問者と回答者のやりとりが・・・・・
• ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOobbs2%2F48 
• 
  

Sub getSelectionCellSize()
'範囲選択セルの幅、高さを調べる,
'マージセル(結合セル)の場合でも調べられる
'参照サイト　ttp://okwave.jp/qa/q5720685.html
    Dim oSheet As Object
    Dim oCursor As Object
    Dim oSelection As Object
    Dim w As Long
    Dim h As Long
'object　Sheet,Selection,Cursol
    oSheet =ThisComponent.CurrentController.ActiveSheet
    oSelection = ThisComponent.CurrentSelection
    oCursor = oSheet.createCursorByRange( oSelection )    'セルの左上のポジションXY
    oCursor.collapseToMergedArea()                                    'collapseToMergedArea メソッドでセルカーソルを結合された　　　　　　　　　　　　　　　　　　　　　　　　　　　’セルの範囲に広げます

'カーソルの幅、高さを調べる
    w = oCursor.Size.Width
    h = oCursor.Size.Height
'MsgBoxで確認
    msgbox "セル幅　" & w & chr(10) & "セル高さ　" & h  ,,"選択セルの幅高さ"
End Sub

 

 

タグ：セルの幅、高さ

コメント 1

Inderal Online Uk Pharmacy https://cheapcialisll.com/ - Cheap Cialis On Line Stendra Mail Order Pills Wolverhampton <a href=https://cheapcialisll.com/#>Cheap Cialis</a> Viagra Cialis Levitra Espana
by SWADWAY (2020-06-28 10:42)