[[20140820193753]]　『マクロ　昔エクセルで作成したデータを数年ぶりに』（カワッチ）　ページの最後に飛ぶ

『マクロ　昔エクセルで作成したデータを数年ぶりに使用したらエラーになった』（カワッチ）

　質問です。
昔、作ったものの、使用されなかったエクセルが
最近になって使いたいという状況になり使用した所
エラーが出るようになってしまいました。

内容は　エクセルにＰＤＦを貼り付ける（サイズ・場所指定）ものです。

Sub pdfファイル挿入()

    Dim myT As Double
    Dim myL As Double
    Dim myW As Double
    Dim myH As Double
    Dim myPDF

    myPDF = Application.GetOpenFilename("pdfファイル,*.pdf")
    If myPDF = False Then Exit Sub

    With ActiveSheet.Shapes(Application.Caller)
        myT = .Top
        myL = .Left
        myW = .Width
        myH = .Height
    End With

    With ActiveSheet.OLEObjects.Add(Filename:=myPDF).ShapeRange　←ここが黄色くなります
        .LockAspectRatio = msoTrue
        .Top = myT
        .Left = myL
        If myW / .Width > myH / .Height Then
            .Height = myH
        Else
            .Width = myW
        End If
    End With

End Sub

よろしくお願いします。

＜使用 Excel：Excel2003、使用 OS：Windows7 ＞

 回答ではありませんが。

 元ネタは↓かな？。

[[20121220153336]]　『PDFファイルのサイズ指定挿入』（挫折）
（カリーニン） 2014/08/20(水) 20:42

↓の環境で試行しましたがエラーになりませんでした。

 Excel:2007
 Windows:Vista(32bit)
（カリーニン） 2014/08/20(水) 21:55

元ネタそうです。
パソコンが変わって　64bit になっています。
使用できないのでしょうか？
（カワッチ） 2014/08/21(木) 10:49

 Windows7(64bit)、 Excel2013 でそのままのコードで動きました。
 何とエラーが出ているのでしょうか。
（Mook） 2014/08/21(木) 11:10

コメント返信：

[ 一覧(最新更新順) ]

[[20140820193753]] 『マクロ 昔エクセルで作成したデータを数年ぶりに』（カワッチ） ページの最後に飛ぶ

[[20140820193753]]　『マクロ　昔エクセルで作成したデータを数年ぶりに』（カワッチ）　ページの最後に飛ぶ