VBAのIE制御

PublishObjectsコレクションについての解説になります。

目次

• PublishObjectsコレクションとは
• シート見出しの色を設定するサンプルコード
  • 実行結果
  • 解説
• PublishObjectsコレクションの親オブジェクト一覧
• PublishObjectsコレクションのプロパティ一覧

PublishObjectsコレクションとは

PublishObjectsコレクションは、ブックに含まれるすべての PublishObject オブジェクトのコレクションです。各 PublishObject オブジェクトは、Web ページとして保存されたブック内のアイテムを表し、オブジェクトのプロパティに指定された値やメソッドに従って更新されます。

PublishObjects コレクションを取得するには、PublishObjects プロパティを使用します。次の使用例は、作業中のブックに含まれるすべての静的な PublishObject オブジェクトを Web ページとして保存します。

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

※ドラッグ(スワイプ)すると全体を確認できます。

単体の PublishObject オブジェクトを取得するには、PublishObjects(index) プロパティを使用します。引数 index には、ブック内で指定されたアイテムのインデックス番号を指定します。次の使用例は、ブック 3 の先頭アイテムを保存する場所を設定します。

Workbooks(3).PublishObjects(1).FileName = _
    "\\myserver\public\finacct\statemnt.htm"

※ドラッグ(スワイプ)すると全体を確認できます。

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").Tab.ColorIndex = 3

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

こちらのマクロは、PublishObjectsコレクションのColorIndexプロパティを利用しています。

PublishObjectsコレクションの親オブジェクト一覧

PublishObjectsコレクションのプロパティ一覧

• PublishObjectsコレクション(ColorIndexプロパティ)のプロパティ