페이지 이력

Sub HyperLinkActionTest()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    
    
    '지정된보고서 영역팝업 지우기띄우기 (ClearHyperLink action)
    ret = mxmodule.xapi.ExecuteAction("HyperLink", "REP23C43B503AC84352BE3260E25D5FF658", "", 0, 0, 1024, 768)
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
    
End Sub



Sub ClearActionTest()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    
    
    '지정된 영역 지우기 (Clear action)
    ret = mxmodule.xapi.ExecuteAction("Clear", "A1:D1")
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
    
End Sub


Sub CopyPasteActionTest()
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object

    '값 복사 (CopyPaste action)
    ret = mxmodule.xapi.ExecuteAction("CopyPaste", "A1:D6", "F1", True, True)
    
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
End Sub