このチュートリアルでは、ブック内の Visual Basic for Applications (VBA) コードから Microsoft Office Excel のドキュメント レベルのカスタマイズでメソッドを呼び出す方法について説明します。 この手順には、 Sheet1 ホスト項目クラスにメソッドを追加し、ブック内の VBA コードにメソッドを公開してから、ブック内の VBA コードからメソッドを呼び出すという 3 つの基本的な手順が含まれます。
適用対象: このトピックの情報は、Excel および Word のドキュメント レベルのプロジェクトに適用されます。 詳細については、「 Office アプリケーションとプロジェクトの種類で使用できる機能」を参照してください。
このチュートリアルでは Excel を具体的に使用しますが、このチュートリアルで示す概念は Word のドキュメント レベルのプロジェクトにも適用できます。
このチュートリアルでは、次の作業について説明します。
VBA コードを含むワークブックを作成する。
Excel のトラスト センターを使用してブックの場所を信頼する。
Sheet1ホスト項目クラスにメソッドを追加する。Sheet1ホスト項目クラスのインターフェイスを抽出する。VBA コードへのメソッドの公開。
VBA コードからメソッドを呼び出します。
注
次の手順で参照している Visual Studio ユーザー インターフェイス要素の一部は、お使いのコンピューターでは名前や場所が異なる場合があります。 これらの要素は、使用している Visual Studio のエディションや独自の設定によって決まります。 詳細については、「Visual Studio IDE のカスタマイズ」を参照してください。
[前提条件]
このチュートリアルを実行するには、次のコンポーネントが必要です。
Microsoft Office 開発者ツールを含む Visual Studio のエディション。 詳細については、「 Office ソリューションを開発するためのコンピューターの構成」を参照してください。
Microsoft Excel
VBA コードを含むブックを作成する
最初の手順では、単純な VBA マクロを含むマクロが有効なブックを作成します。 カスタマイズしたコードを VBA に公開するには、ブックに VBA コードが既に含まれている必要があります。 それ以外の場合、Visual Studio は VBA プロジェクトを変更して、VBA コードがカスタマイズ アセンブリを呼び出せるようにすることはできません。
使用する VBA コードを含むブックが既にある場合は、この手順をスキップできます。
VBA コードを含むブックを作成するには
Excel を起動します。
作業中の文書を、WorkbookWithVBA という名前の Excel マクロ対応ブック (*.xlsm) として保存します。 デスクトップなどの便利な場所に保存します。
リボンの [ 開発 ] タブをクリックします。
注
[開発] タブが表示されない場合は、最初に表示する必要があります。 詳細については、「 方法: リボンの [開発者] タブを表示する」を参照してください。
[ コード ] グループで、[ Visual Basic] をクリックします。
Visual Basic エディターが開きます。
[プロジェクト] ウィンドウで、[ThisWorkbook] をダブルクリックします。
ThisWorkbookオブジェクトのコード ファイルが開きます。次の VBA コードをコード ファイルに追加します。 このコードは、何もしない単純な関数を定義します。 この関数の唯一の目的は、ブックに VBA プロジェクトが存在することを確認することです。 これは、このチュートリアルの後の手順で必要になります。
Sub EmptySub() End Sub文書を保存し、Excel を終了します。
プロジェクトを作成する
これで、前に作成したマクロが有効なブックを使用する Excel 用のドキュメント レベルのプロジェクトを作成できるようになりました。
新しいプロジェクトを作成するには
Visual Studio を起動します。
ファイルメニューで、新規をポイントし、プロジェクトをクリックします。
テンプレート ウィンドウで、 Visual C# を展開し、 Office/SharePoint を展開します。
Office アドイン ノードを選択します。
プロジェクト テンプレートの一覧で、 Excel 2010 ブック または Excel 2013 ブック プロジェクトを 選択します。
[ 名前 ] ボックスに「 CallingCodeFromVBA」と入力します。
OK をクリックします。
Visual Studio Tools for Office プロジェクト ウィザードが開きます。
[ 既存のドキュメントをコピーする] を選択し、[ 既存のドキュメントの完全なパス ] ボックスで、前に作成した WorkbookWithVBA ブックの場所を指定します。 独自のマクロが有効なブックを使用している場合は、代わりにそのブックの場所を指定します。
[完了] をクリックします。
Visual Studio がデザイナーで WorkbookWithVBA ブックを開き、 CallingCodeFromVBA プロジェクトを ソリューション エクスプローラーに追加します。
ワークブックの場所を信頼する
ソリューション内のコードをブック内の VBA コードに公開する前に、ブック内の VBA を信頼して実行する必要があります。 これを行うにはいくつかの方法があります。 このチュートリアルでは、Excel の セキュリティ センター でブックの場所を信頼することで、このタスクを実行します。
ブックの場所を信頼するには
Excel を起動します。
[ ファイル ] タブをクリックします。
[ Excel のオプション] ボタンをクリックします。
[カテゴリ] ウィンドウで、[ セキュリティ センター] をクリックします。
詳細ウィンドウで、[ セキュリティ センターの設定] をクリックします。
[カテゴリ] ウィンドウで、[ 信頼できる場所] をクリックします。
詳細ウィンドウで、[ 新しい場所の追加] をクリックします。
[Microsoft Office の信頼できる場所] ダイアログ ボックスで、CallingCodeFromVBA プロジェクトを含むフォルダーを参照します。
この場所のサブフォルダーも信頼するを選択します。
[Microsoft Office の信頼できる場所] ダイアログ ボックスで、[OK] をクリックします。
[ セキュリティ センター ] ダイアログ ボックスで、[ OK] をクリックします。
[ Excel のオプション] ダイアログ ボックスで、[OK] をクリック します。
Excel を終了します。
Sheet1 クラスにメソッドを追加する
VBA プロジェクトが設定されたので、VBA コードから呼び出すことができる Sheet1 ホスト項目クラスにパブリック メソッドを追加します。
Sheet1 クラスにメソッドを追加するには
ソリューション エクスプローラーで、Sheet1.csを右クリックし、[コードの表示] をクリックします。
Sheet1.cs ファイルがコード エディターで開きます。
Sheet1クラスに次のコードを追加します。CreateVstoNamedRangeメソッドは、指定した範囲に新しいNamedRange オブジェクトを作成します。 このメソッドは、SelectedのNamedRange イベントのイベント ハンドラーも作成します。 このチュートリアルの後半では、ドキュメント内の VBA コードからCreateVstoNamedRangeメソッドを呼び出します。private Microsoft.Office.Tools.Excel.NamedRange namedRange1; public void CreateVstoNamedRange(Excel.Range range, string name) { if (!this.Controls.Contains(name)) { namedRange1 = this.Controls.AddNamedRange(range, name); namedRange1.Selected += new Excel.DocEvents_SelectionChangeEventHandler( namedRange1_Selected); } else { MessageBox.Show("A named range with this specific name " + "already exists on the worksheet."); } } private void namedRange1_Selected(Microsoft.Office.Interop.Excel.Range Target) { MessageBox.Show("This named range was created by Visual Studio " + "Tools for Office."); }次のメソッドを
Sheet1クラスに追加します。 このメソッドは、 GetAutomationObject メソッドをオーバーライドして、Sheet1クラスの現在のインスタンスを返します。protected override object GetAutomationObject() { return this; }Sheet1クラス宣言の最初の行の前に、次の属性を適用します。 これらの属性により、クラスは COM に表示されますが、クラス インターフェイスは生成されません。[System.Runtime.InteropServices.ComVisible(true)] [System.Runtime.InteropServices.ClassInterface( System.Runtime.InteropServices.ClassInterfaceType.None)]
Sheet1 クラスのインターフェイスを抽出する
CreateVstoNamedRange メソッドを VBA コードに公開する前に、このメソッドを定義するパブリック インターフェイスを作成し、このインターフェイスを COM に公開する必要があります。
Sheet1 クラスのインターフェイスを抽出するには
Sheet1.cs コード ファイルで、
Sheet1クラス内の任意の場所をクリックします。[ リファクタリング ] メニューの [ インターフェイスの抽出] をクリックします。
[ インターフェイスの抽出 ] ダイアログ ボックスの [ フォーム インターフェイスにパブリック メンバーを選択 ] ボックスで、
CreateVstoNamedRangeメソッドのエントリをクリックします。OK をクリックします。
Visual Studio は、
ISheet1という名前の新しいインターフェイスを生成し、Sheet1インターフェイスを実装するようにISheet1クラスの定義を変更します。 Visual Studio では、コード エディターで ISheet1.cs ファイルも開きます。ISheet1.cs ファイルで、
ISheet1インターフェイス宣言を次のコードに置き換えます。 このコードは、ISheet1インターフェイスをパブリックにし、 ComVisibleAttribute 属性を適用してインターフェイスを COM に表示します。[System.Runtime.InteropServices.ComVisible(true)] public interface ISheet1 { void CreateVstoNamedRange(Microsoft.Office.Interop.Excel.Range range, string name); }プロジェクトをビルドします。
VBA コードにメソッドを公開する
CreateVstoNamedRange メソッドをブック内の VBA コードに公開するには、 ホスト項目の Sheet1 プロパティを True に設定します。
VBA コードにメソッドを公開するには
ソリューション エクスプローラーで、Sheet1.csをダブルクリックします。
WorkbookWithVBA ファイルがデザイナーで開き、シート 1 が表示されます。
[プロパティ] ウィンドウで、ReferenceAssemblyFromVbaProject プロパティを選択し、値を True に変更します。
表示されるメッセージで [ OK] をクリックします 。
プロジェクトをビルドします。
VBA コードからメソッドを呼び出す
ブック内の VBA コードから CreateVstoNamedRange メソッドを呼び出すようになりました。
注
このチュートリアルでは、プロジェクトのデバッグ中に VBA コードをブックに追加します。 Visual Studio はビルド出力フォルダー内のドキュメントをメイン プロジェクト フォルダーのドキュメントのコピーに置き換えるため、このドキュメントに追加した VBA コードは、次回プロジェクトをビルドするときに上書きされます。 VBA コードを保存する場合は、プロジェクト フォルダー内のドキュメントにコピーできます。 詳細については、「 VBA とドキュメント レベルのカスタマイズの組み合わせ」を参照してください。
VBA コードからメソッドを呼び出すには
F5 キーを押してプロジェクトを実行します。
[ 開発 ] タブの [ コード ] グループで、[ Visual Basic] をクリックします。
Visual Basic エディターが開きます。
[ 挿入 ] メニューの [ モジュール] をクリックします。
次のコードを新しいモジュールに追加します。
このコードは、カスタマイズ アセンブリ内の
CreateTableメソッドを呼び出します。 マクロは、グローバルGetManagedClassメソッドを使用してこのメソッドにアクセスし、VBA コードに公開したSheet1ホスト項目クラスにアクセスします。 このチュートリアルの前半でGetManagedClassプロパティを設定すると、 メソッドが自動的に生成されました。Sub CallVSTOMethod() Dim VSTOSheet1 As CallingCodeFromVBA.Sheet1 Set VSTOSheet1 = GetManagedClass(Sheet1) Call VSTOSheet1.CreateVstoNamedRange(Sheet1.Range("A1"), "VstoNamedRange") End SubF5 押します。
開いているブックで、シート 1 のセル A1 をクリックします。 メッセージ ボックスが表示されることを確認します。
変更を保存せずに Excel を終了します。
次のステップ
VBA から Office ソリューションでコードを呼び出す方法の詳細については、次のトピックを参照してください。
VBA から Visual Basic カスタマイズのホスト項目のコードを呼び出します。 このプロセスは、Visual C# プロセスとは異なります。 詳細については、「 チュートリアル: Visual Basic プロジェクトで VBA からコードを呼び出す」を参照してください。
VBA から VSTO アドインのコードを呼び出します。 詳細については、「 チュートリアル: VBA から VSTO アドインのコードを呼び出す」を参照してください。