Formats a paragraph or range of paragraphs with a picture bullet.
Syntax
expression.ApplyPictureBullet(FileName)
expression Required. A variable that represents a ListLevel object.
Parameters
Name
Required/Optional
Data Type
Description
FileName
Required
String
The path and file name of the picture file.
Example
This example creates a new document with a list and applies a picture bullet format to all paragraphs except the first and last.
Visual Basic for Applications
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).<strong class="bterm">ApplyPictureBullet</strong> _
FileName:="c:\pictures\bluebullet.gif"
'Apply the list format settings to the range
rngRange.ListFormat.ApplyListTemplate _
ListTemplate:=lstTemplate