PublishObjects Property Example

This example publishes all static PublishObject objects in the active workbook to the Web page.

Set objPObjs = ActiveWorkbook.PublishObjects
For Each objPO in objPObjs
    If objPO.HtmlType = xlHTMLStatic Then
        objPO.Publish
    End If
Next objPO