返回 IHTMLElementCollection 集合,该集合代表当前文档中所有图像的集合。图像用其 HTML 标记 <IMG> 表示。
expression.images
expression 必选。返回 DispFPHTMLDocument 对象的表达式。
此集合先按名称索引,再按标识符索引。如果发现相同的名称,则返回具有该名称的项目的集合。相同名称的集合随后必须按位置序号进行引用。
下列示例创建对图像集合的引用,并显示当前文档中所有图像的标题。如果没有任何图像标题,则不会向用户显示任何内容。
Sub ReturnImages()
'Returns the collection of all images in the collection
    Dim objApp As FrontPage.Application
    Dim objImages As IHTMLElementCollection
    Dim objImage As IHTMLElement
    Set objApp = FrontPage.Application
    Set objImages = objApp.ActiveDocument.images
    For Each objImage In objImages
        'If title string is not empty
        If Not objImage.Title = "" Then
            'Display title of each image
            MsgBox objImage.Title
        End If
    Next objImage
End Sub