|
>デザインモジュールに記述するプロシージャがmsgboxのような時はうまくいくのですが、先の Activesheets.Cells(1,1)="TEST" とするとエラー(オブジェクト変数またはwithブロック変数が設定されていません)になります。
デザイン-AddInDesigner1のアプリケーションはMicrosoft Excel x.xとして述べます。
ActivesheetsなどのApplicationへの全ての参照はcomアドインへ渡されたApplicationを介して記述する必要があります。(これは基本です)
記述の一例
(1)標準モジュール
Public gx As Application
(2)AddInDesigner1のイベント
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
(3)実際の記述
gx.Activesheet.Cells(1,1)=…
Developerのマニュアル、ヘルプ、サンプル等へ目を通して下さい。
|
|