...
Type: String
실행할 동작설정 명
| Name | 동작명 | 비고 |
|---|---|---|
| HyperLink | HyperLink 동작 (보고서 팝업, 시트 이동에 사용) | Viewer 에서만 작동함. |
| Clear | Clear 동작 | |
| CopyPaste | 복사 붙여넣기 |
...
| ActionName | param1 | param2 | param3 | param4 | param5 | param6 | ||||
|---|---|---|---|---|---|---|---|---|---|---|
| HyperLink | ReportCode <string> | SheetCode <string> | Leftparams <int> | Top <int> | Width <int> | Height <int> | <string> source=target;source2=target2... | |||
| Clear | Range <string> | |||||||||
| CopyPaste | From <string> | To <string> | CopyValue <bool> | CopyFormat <bool> |
...
| 코드 블럭 | ||||||
|---|---|---|---|---|---|---|
| ||||||
Sub HyperLinkActionTest()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
'보고서 팝업 띄우기 (HyperLink action)
'param 정의 : 원본보고서변수명=popup 보고서의변수명;...
ret = mxmodule.xapi.ExecuteAction("HyperLink", "REP23C43B503AC84352BE3260E25D5FF658", "", 0, 0, 1024, 768"VS_SOURCE1=VS_VAR1;VN_SOURCE1=VN_VAR2")
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
|