ListLevel.ApplyPictureBullet メソッド (Word)

1 つの段落または指定範囲の段落に、行頭絵文字を設定します。

構文

式。 ApplyPictureBullet( _FileName_ )

式 が必要です。 'ListLevel' オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FileName	必須	String	図ファイルのパスとファイル名を指定します。

例

次の使用例は、新規文書に箇条書きを作成し、その最初と最後の段落を除くすべての段落に行頭絵文字を適用します。

Sub ApplyPictureBulletsToParagraphs() 
 Dim docNew As Document 
 Dim rngRange As Range 
 Dim lstTemplate As ListTemplate 
 Dim intPara As Integer 
 Dim intCount As Integer 
 
 'Set the initial value of object variables 
 Set docNew = Documents.Add 
 
 'Add paragraphs to the new document, including eight list items 
 With Selection 
 .TypeText Text:="This is an introductory paragraph." 
 .TypeParagraph 
 End With 
 Do Until intPara = 8 
 With Selection 
 .TypeText Text:="This is a list item." 
 .TypeParagraph 
 End With 
 intPara = intPara + 1 
 Loop 
 Selection.TypeText Text:="This is a concluding paragraph." 
 
 'Count the total number of paragraphs in the document 
 intCount = docNew.Paragraphs.Count 
 
 'Set the range to include all paragraphs in the 
 'document except the first and the last 
 Set rngRange = docNew.Range( _ 
 Start:=ActiveDocument.Paragraphs(2).Range.Start, _ 
 End:=ActiveDocument.Paragraphs(intCount - 1).Range.End) 
 
 'Format the list template as a bullet 
 Set lstTemplate = ListGalleries(Index:=wdBulletGallery) _ 
 .ListTemplates(7) 
 
 'Format list with a picture bullet 
 lstTemplate.ListLevels(1).ApplyPictureBullet _ 
 FileName:="c:\pictures\bluebullet.gif" 
 
 'Apply the list format settings to the range 
 rngRange.ListFormat.ApplyListTemplate _ 
 ListTemplate:=lstTemplate 
End Sub

関連項目

ListLevel オブジェクト

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

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