In diesem Beispiel wird der eindeutige Name des ersten Diagramms (in der ersten Arbeitsmappe) bestimmt, das als Webseite gespeichert wurde. Anschließend wird die Variable blnChartFound vom Typ Boolean auf True festgelegt. Wenn keine Elemente im Dokument als Diagrammkomponenten gespeichert wurden, ist blnChartFound False.
blnChartFound = False For Each objPO In Workbooks(1).PublishObjects If objPO.SourceType = xlSourceChart Then strFirstPO = objPO.Source blnChartFound = True Exit For End If Next objPO