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

伊藤T15です
残念ですね、RubyでもOLEならLet/Setの自動処理はすると思うのですが

For Each shp In ActiveDocument.InlineShapes
With shp.OLEFormat
If .ProgID = "MSGraph.Chart.8" Then
' .DoVerb VerbIndex:=wdOLEVerbPrimary ' データシートが開く
' .Activate       'データシートは見えなくても値はマクロで入る
With .Object
'MsgBox .Parent.Name
'MsgBox .Name
'MsgBox .ChartGroups.Count
'MsgBox .Parent.DataSheet.Cells(2, 2).Value

Let     .Parent.DataSheet.Cells(2, 2).Value = 555  'Let は特にいらない
 MsgBox .Parent.DataSheet.Cells(2, 2).Value

End With
End If
End With
Next shp

------- ちゃんと値は入りましたが。