Pages.AddWizardPage メソッド (Publisher)
指定された新しいウィザード ページを、文書内の指定された位置に追加します。
構文
式。AddWizardPage (After, PageType, AddHyperlinkToWebNavBar)
式Pages オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
イベント後 | 必須 | 長整数型 (Long) | 新しいウィザード ページを配置する位置の後のページを指定します。 |
PageType | オプション | PbWizardPageType | 追加するウィザード ページの種類を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbWizardPageType クラスの定数の 1 つを指定できます。 |
AddHyperlinkToWebNavBar | 省略可能 | ブール型 (Boolean) | 新しいページへのリンクを既存のページの自動ナビゲーション バーに追加するかどうかを指定します。 既定では false を指定 する場合はこの引数を省略すると、このページへのリンク追加されません既存のページの自動ナビゲーション バーにします。 |
注釈
ウィザード ページは、類似したウィザード文書に対してだけ追加できます。 たとえば、カタログ カレンダー ウィザードのページはカタログには追加できますが、ニュースレターには追加できません。 異なる種類の文書にウィザード ページを追加しようとすると、エラーが発生します。
例
次の使用例は、新しいカタログ パブリケーションを作成し、カタログの最初のページの後にウィザードの予定表ページを追加し、文書の各 Web ナビゲーション バー セットへのリンクとしてページを追加します。
Sub AddNewWizardPage()
Dim PubApp As Publisher.Application
Dim PubDoc As Publisher.Document
Set PubApp = New Publisher.Application
Set PubDoc = PubApp.NewDocument(Wizard:=pbWizardCatalogs, _
Design:=7)
PubDoc.Pages.AddWizardPage After:=1, _
PageType:=pbWizardPageTypeCatalogCalendar, _
AddHyperLinkToWebNavBar:=True
PubApp.ActiveWindow.Visible = True
End Sub
次の使用例は、作業中の文書がカタログであることを確認し、ある場合は、最初のページの後にカタログ フォームを追加しますが、Web ナビゲーション バー セットのリンクとしてページを追加しません。
Sub InsertCatalogWizardPage()
With ActiveDocument
If .Wizard.ID = 161 Then
.Pages.AddWizardPage After:=1, _
PageType:=pbWizardPageTypeCatalogForm, _
AddHyperLinkToWebNavBar:=False
End If
End With
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。