次の方法で共有

ShapeRange.Wizard プロパティ (Publisher)

  • [アーティクル]

指定された文書に関連付けられている文書のスタイルまたは指定されたデザイン ギャラリー オブジェクトに関連付けられているウィザードを表す Wizard オブジェクトを返します。

構文

式。ウィザード

式ShapeRange オブジェクトを表す変数。

注釈

Document オブジェクトまたは Page オブジェクトから Wizard プロパティにアクセスするときに、指定された文書が文書のデザインに関連付けられていないと、エラーが発生します。

また、Shape オブジェクトまたは ShapeRange オブジェクトから Wizard プロパティにアクセスするときに、指定されたオブジェクトがデザイン ギャラリー オブジェクトでないと、エラーが発生します。

例

次の使用例は、作業中の文書に関連付けられている文書のデザイン、その名前、および現在の設定値を表示します。

Dim wizTemp As Wizard 
Dim wizproTemp As WizardProperty 
Dim wizproAll As WizardProperties 
 
Set wizTemp = ActiveDocument.Wizard 
 
With wizTemp 
 Set wizproAll = .Properties 
 Debug.Print "Publication design associated with " _ 
 & "current publication: " _ 
 & .Name 
 For Each wizproTemp In wizproAll 
 With wizproTemp 
 Debug.Print " Setting: " _ 
 & .Name & " = " & .CurrentValueId 
 End With 
 Next wizproTemp 
End With

注:

使用している Publisher の言語バージョンによっては、このコードを使用するときにエラーが発生する場合があります。 エラーが発生する場合は、エラー処理用のエラー ハンドラーを作成する必要があります。 詳細については、 Wizard オブジェクトに関するページを参照してください。

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。