VBAで

質問

VBAで
Wordのマクロを作りました
それをパワーポイントで動作させるにはどうしたらいいですか？
WordのVBAのコードは

Sub 地図の挿入()
'
' 地図の挿入 Macro
'
'
Selection.InlineShapes.AddOLEObject ClassType:="JSCstudioH.Document", _
FileName:="", LinkToFile:=False, DisplayAsIcon:=False
End Sub

でこれをパワーポイントのVBAにコピペするとエラー424
オブジェクトを指定してください
と表示されます。
どこを直したらよいか分かる人いたら教えてください

回答No.3

n_na_tto · ベストアンサー

余計なものを取り忘れました。こっちで。

ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject _
　Left:=10, Top:=50, Width:=600, Height:=450, _
　ClassName:="AcroExch.Document.7", _
　FileName:="", Link:=msoFalse

補足

ありがとうございます。
挿入されましたがワードの場合ソフトが自動で起動しますが
これでは自動的には起動してくれません。
自動的に起動するにはどうしたいいでしょうか？
お願いします

回答No.2

n_na_tto

こんな感じですか？

With ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject _
　(Left:=10, Top:=50, Width:=600, Height:=450, _
　ClassName:="JSCstudioH.Document", _
　FileName:="", Link:=msoFalse)
End With

回答No.1

piroin654

エラー424はどこにエラーがあるのかは
こちらではわからないエラーです。
しいてあげるならば、

>ClassType:="JSCstudioH.Document"

のJSCstudioH.Documentというクラスが
参照設定の中に存在し、それにチェックが
はいっているのか、くらいですか。

また、提示されたコードはWordで使用する
オブジェクトが表示されているので、
パワーポイントの中にWordを挿入し、
そのモジュールで書かない限り、動かない
のでは、と思いますが(推測ですが）。
パワーポイントの中でコンパイルして
エラーが出なかったのですか。

パワーポイントでSub 地図の挿入()
ということをするなら、パワーポイント
で使えるオブジェクトとパワーポイント
で使用できるVISUAL VASICで書く必要が
あると思います。
つまり全面書き直し?