選択セルの幅、高さを変える 現在の幅高さ確認 マクロの実験 LibreOffice Calc Basic

選択セルの幅、高さを変える　現在の幅高さ確認　マクロの実験　LibreOffice Calc Basic

• なぜマクロ実験をしたかは、画像の挿入のさい、セル幅に併せて挿入したいから
• 課題　画像の連続挿入がうまくいかない、、、

Sub CellSize1()
'選択セルの幅、高さを設定
'マクロ実行前に戻すには、シート選択し　Ctrl + Z
'OK
'セル幅を設定し、取得した値に違いがある！
'W=10000    確認では 9999

    Dim oSheet As Object
    Dim oCell As Object   
    Dim oRow,oColumn,w,h As long
   
    'Sheet object
        oSheet = ThisComponent.getCurrentController().activesheet
    '選択セルのRow,Column ナンバー
        oRow=ThisComponent.CurrentController.getSelection().getCellAddress().row
         oColumn=ThisComponent.CurrentController.getSelection().getCellAddress().Column
    'oCell object 選択セル設定
         oCell=oSheet.getCellByPosition(oColumn,oRow)
    '現在のセル幅、高さ確認用
    '    msgbox "セルの幅　　" & oCell.getColumns().Width & chr(13) _
    '    &  "セルの高さ　　" & oCell.getRows().Height
        'セルポジション
        aPos = oCell.Position
        msgbox aPos.X & ", " & aPos.Y
     
    'セル幅、高さ
         w=10000
        h=800
        'h= ""     '高さを変えない場合
    '設定
        oCell.getColumns().Width=w
        oCell.getRows().Height=h

End Sub

 

 

タグ：セルの幅、高さ

コメント 2

Legitimate Cialis Canada https://agenericcialise.com/ - safe place to buy cialis online Lasix Usa Sale <a href=https://agenericcialise.com/#>best generic cialis</a> Amoxicillin K Clav 875mg
by Bupsfutty (2020-06-15 17:28) 

Quanto Costa Il Cialis Tadalafil https://agenericcialise.com/ - Cialis Dapoxetine Actual Work <a href=https://agenericcialise.com/#>Cialis</a> Meds On Line No Prescribtion
by SWADWAY (2020-06-22 02:49)