PowerPointでオブジェクトを一覧にしてテキストファイルへ出力する。
背景 パワーポイントを使って、画像のフロア図面上に、PC等の機器をオブジェクト(シェイプ)としてプロットし、PC等配置図を作っているのを見かけました。何故器機配置図をパワーポイントで作っているのかは謎ですが。どうやら、フロア図面を作る部署ではCADが使えないとか、諸般の事情があるようです。そして、フロアごとにPC台数やプリンター等を算出しろとか来たみたいで、印刷して手作業で数えているのをみて?と思い、ちゃちゃっと作ってみました。今後も何度も数えそうなので。器機配置図を作るのにパワーポイントが最適ななのか?甚だ疑問ですが、環境には逆らえないという、制約があるそうです。 どんなものを作ってみたのか あくまでもサンプルです。シェイプ又は画像に機器属性を割り当ててそれをタブ区切りテキストに出力するというものです。 ↓ コード ソースSub ExportShapes() Dim sld As Slide Dim shp As Shape Dim oTextFile As String Dim oRow As String oTextFile = ActivePresentation.Path & "\Shapes.txt" Open oTextFile For Output As #1 Print #1, "スライド番号(階数)" & vbTab; "大分類" & vbTab & "ID" & vbTab & "シリアル番号" & vbTab & "説明" & vbTab _ & "中分類" & vbTab & "建屋" & vbTab & "座標" & vbTab & "設置場所" & vbTab _ & "契約所管" & vbTab & "開始日" & vb...