MRI の利用方法 Tergetを指定してMRIを起動

MRI の利用方法

• 参考サイト　
• ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOo%2FExt%2FMRI%2FDocumentation%2FRunMRI 
• 調べたいobjectをtergetにしてMRIを起動する
• 保存先はどのドキュメントからでも利用出来るように、マイマクロに記入（保存）
• 
  

 

 

sub sMRI(terget)
'oMRI = CreateUnoService( "mytools.Mri" )
'oMRI.inspect( MriTargetObject )
'tergetオブジェクトでMRIを起動する
    CreateUnoService( "mytools.Mri" ).inspect(terget)
End Sub

oSelectのプロパティなどを調べる事が出来る

Sub MRI_Test()
'objectを指定してMRIを起動する

Dim oSelect as object

    oSelect=ThisComponent.CurrentController.getSelection()
        'oMRI = CreateUnoService( "mytools.Mri" )
        'oMRI.inspect( MriTargetObject )
    sMRI(oSelect)

    with oSelect.getCellAddress()
            c=.Column
            r=.Row
            s=.Sheet
            .StartColumn    'error
            .EndColumn        'error
            .StartRow            'error
            .EndRow
    end with

msgbox  c  & chr(10) & r & chr(10) & s

End Sub

 

 

タグ：MRI