Shapes.AddWebControl メソッド (Publisher)

  • [アーティクル]

Web フォーム コントロールを表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。

構文

式。AddWebControl (Type、 Left、 Top、 Width、 Height、 LaunchPropertiesWindow)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
型 必須 PbWebControlType 追加する Web フォーム コントロールの種類を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbWebControlType クラスの定数のいずれかを指定できます。 pbWebControlWebComponent を使用するとエラーが発生します。
Left 必須 バリアント型 Web フォーム コントロールを表す図形の左端の位置。
Top 必須 バリアント型 Web フォーム コントロールを表す図形の上端の位置。
Width 必須 バリアント型 Web フォーム コントロールを表す図形の幅。 コマンド ボタンの場合、このパラメーターは無効です。
Height 必須 バリアント型 Web フォーム コントロールを表す図形の高さ。 コマンド ボタンの場合、このパラメーターは無効です。
LaunchPropertiesWindow 省略可能 ブール型 (Boolean) サポートされていません。 既定値は False です。この引数が True に設定されている場合、エラーが発生 します。

戻り値

Shape

注釈

Left、Top、Width、Height の各パラメーターでは、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。

pbWebControlHotSpot 定数を使用して Web コントロールにホット スポットを追加する場合、URL は Hyperlinks プロパティによって指定されます。

FillFormat オブジェクトを返す Shape.Fill プロパティと、 LineFormat オブジェクトを返す Shape.Line プロパティをホット スポット図形からアクセスできないことに注意してください。 ホット スポット図形からこれらのプロパティにアクセスしようとしている場合は、実行時エラーが返されます。

例

次の例では、作業中の文書の最初のページに Web フォーム チェック ボックス コントロールを追加します。

Dim shpCheckBox As Shape 
 
Set shpCheckBox = ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlCheckBox, _ 
 Left:=216, Top:=216, _ 
 Width:=18, Height:=18)

次の例では、アクティブな Web 文書の 4 ページの図形にホット スポットを追加します。 最初に、4 ポイントのオートシェイプでは、ページに追加されます。 次に、PbWebControlHotSpot の型を持つ AddWebControl メソッドを使用して、スターの各アームにホット スポットを追加します。 最後に、各ホット スポット図形の Hyperlinks プロパティを使用して、ハイパーリンクが各ホット スポットに追加されます。

Dim theDoc As Document 
Dim theStar As Shape 
Dim theWC1 As Shape 
Dim theWC2 As Shape 
Dim theWC3 As Shape 
Dim theWC4 As Shape 
 
Set theDoc = ActiveDocument 
Set theStar = theDoc.Pages(4).Shapes.AddShape _ 
 (Type:=msoShape4pointStar, Left:=200, Top:=25, _ 
 Width:=200, Height:=200) 
 
With theDoc.Pages(4).Shapes 
 
 Set theWC1 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=280, Top:=25, Width:=40, Height:=80) 
 With theWC1 
 .Hyperlink.Address = "https://www.contoso.com/page1.htm" 
 End With 
 
 Set theWC2 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=320, Top:=105, Width:=80, Height:=40) 
 With theWC2 
 .Hyperlink.Address = "https://www.contoso.com/page2.htm" 
 End With 
 
 Set theWC3 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=280, Top:=145, Width:=40, Height:=80) 
 With theWC3 
 .Hyperlink.Address = "https://www.contoso.com/page3.htm" 
 End With 
 
 Set theWC4 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=200, Top:=105, Width:=80, Height:=40) 
 With theWC4 
 .Hyperlink.Address = "https://www.contoso.com/page4.htm" 
 End With 
End With

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

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