|
yuu1さん こんばんは
うまくいきません。
実は開発ガイドのウォークスルー通りImplements IDTExtensibility2から試したこともあったのですがやはり同じエラーで進めませんでした。今までの部分を述べます。
★以下をAddInDesigner1に記述
Public Gx As Application
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set Gx = Application
End Sub
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
Set Gx = Nothing
End Sub
Public Sub test()
Gx.ActiveSheet.Cells(1, 1) = "seiko"
End Sub
★ホスト側にて上記DLLを参照設定して以下を標準Moduleに記述
Dim ABC As New AddInProject1.AddInDesigner1
Sub jikken()
ABC.test
End Sub
お手数をおかけします。以上の記述で何が原因なのかご教授お願いします。
|
|