VBAのAnswerWizardオブジェクト

AnswerWizardオブジェクト

AnswerWizardオブジェクトについての解説になります。

AnswerWizardオブジェクトとは

AnswerWizardオブジェクトはMicrosoft Office アプリケーションのアンサーウィザードを表します。アプリケーションごとに 1 つのアンサーウィザードが存在し、AnswerWizard オブジェクトや AnswerWizardFiles コレクションに加えられるすべての変更は、作業中の Office アプリケーションにすぐに適用されます。

現在のアンサーウィザードで利用できるファイルのリストからすべてのエントリを削除するには、ClearFileList メソッドを使用します。このメソッドを使用すると、アンサーウィザードから Office ホストアプリケーションで利用される既定のファイルにはアクセスできないことを確認できます。これは、アンサーウィザードファイルをカスタムの .AW ファイルと置き換える場合などに使用します。次の使用例は、既定のアンサーウィザードのファイルリストをクリアし、2 つのファイルをカスタムアンサーウィザードに追加します。


Dim customAnswerWizard As AnswerWizard
Set customAnswerWizard = Application.AnswerWizard
customAnswerWizard.ClearFileList
customAnswerWizard.Files.Add ("c:\awfiles\custom_1.aw")
customAnswerWizard.Files.Add ("c:\awfiles\custom_2.aw")

現在のアンサーウィザードのファイルリストを Office ホストアプリケーションの既定のリストに戻すには、ResetFileList メソッドを使用します。また、カスタムファイル名を適切なレジストリキーに追加して、Windows レジストリ内に既定のカスタムファイルリストを作成することもできます。この場合、ResetFileList メソッドが呼び出されると、そのレジストリキーに指定されたファイルが復元されます。次の使用例は、現在のアンサーウィザードのファイルリストをリセットします。


Dim customAnswerWizard As AnswerWizard
Set customAnswerWizard = Application.AnswerWizard
customAnswerWizard.ResetFileList

アンサーウィザードファイルへの参照のコレクションを取得するには、Files プロパティを使用します。Files プロパティは、アンサーウィザードファイルを参照する文字列のコレクションを取得します。次の使用例は、AnswerWizardFiles コレクションを取得し、そのファイル数をメッセージボックスに表示します。


Dim customAnswerWizardFiles As AnswerWizardFiles
Set customAnswerWizardFiles = Application.AnswerWizard.Files
MsgBox customAnswerWizardFiles.Count

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。


Sub sample()

    Sheets("Sheet1").Tab.ColorIndex = 3

End Sub

実行結果

解説

こちらのマクロは、AnswerWizardオブジェクトのColorIndexプロパティを利用しています。

AnswerWizardオブジェクトの親オブジェクト一覧

親オブジェクト名	内容
Chartオブジェクト	ブック内のグラフを表します。ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフシートのどちらかのグラフです。
Worksheetオブジェクト