In diesem Beispiel werden alle statischen PublishObject-Objekte der aktiven Arbeitsmappe auf der Webseite veröffentlicht.
Set objPObjs = ActiveWorkbook.PublishObjects For Each objPO in objPObjs If objPO.HtmlType = xlHTMLStatic Then objPO.Publish End If Next objPO