[ruby-list:39173] Re: WORD Graph のデータシートにデータを貼り付けようとしています

伊藤T15です
VBAの雛形を作ってみました。

Sub Macro1()
'           Word2000 の場合
' Macro1 Macro
' 記録日 2004/02/13 記録者 ITO
'
'    Selection.InlineShapes.AddOLEObject ClassType:="MSGraph.Chart.8",
FileName _
   '     :="", LinkToFile:=False, DisplayAsIcon:=False
'
For Each shp In ActiveDocument.InlineShapes
With shp.OLEFormat
If .ProgID = "MSGraph.Chart.8" Then
.DoVerb VerbIndex:=wdOLEVerbPrimary ' フォーカスを入れる

With .Object
MsgBox .Parent.Name
MsgBox .Name
MsgBox .ChartGroups.Count
MsgBox .Parent.DataSheet.Cells(2, 2).Value

' Graph x.x Object は常時生きていないような？
' 実行時エラーになったグラフをその場で手操作で
' 開き、枠線が斜線ハッチングの時には[F8]続行できる
' 見えていても生きたGraphObjectではなく
' Wordにキャッシュされた画像かもしれない。
' ライブに生きているリンク埋め込みでないのかも。
' 表変更時に生きていて、編集が終わると画像を渡して
' 自己消滅するとか。
' バーコードコントロールも同様な動きをします。
' 差し込み印刷時にはバーコード値を変更しても
' すぐ反映されないので、いったん保存終了してから
' 印刷になります。

End With
End If
End With
Next shp

End Sub