[[20120404175619]]　『2003写真貼り付けマクロを2010verに変更』（くま）　ページの最後に飛ぶ

『2003写真貼り付けマクロを2010verに変更』（くま）

2003で使用していた写真を複数枚貼り付けるマクロ(下記)ですが、2010では写真がリンク貼付けになってしまい困っています。

Sub 複数の画像を挿入()

    Dim strFilter As String
     Dim Filenames As Variant
     Dim PIC       As Picture

     ' 「ファイルを開く」ダイアログでファイル名を取得
     strFilter = "画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png"
     Filenames = Application.GetOpenFilename( _
                     FileFilter:=strFilter, _
                     Title:="図の挿入(複数選択可）", _
                     MultiSelect:=True)
     If Not IsArray(Filenames) Then Exit Sub

     ' ファイル名をソート
     Call BubbleSort_Str(Filenames, True, vbTextCompare)

     ' 貼り付け開始セルを選択
     Range("C5").Select

     ' マクロ実行中の画面描写を停止
     Application.ScreenUpdating = False
     ' 順番に画像を挿入
     For i = LBound(Filenames) To UBound(Filenames)
         Set PIC = ActiveSheet.Pictures.Insert(Filenames(i))

        '-------------------------------------------------------------
         ' 画像の各種プロパティ変更
         '-------------------------------------------------------------
         With PIC
             .Top = ActiveCell.Top        ' 位置：アクティブセルの上側に重ねる
             .Left = ActiveCell.Left      ' 位置：アクティブセルの左側に重ねる
             .Placement = xlMove          ' 移動するがサイズ変更しない
             .PrintObject = True          ' 印刷する
         End With
         With PIC.ShapeRange
             .LockAspectRatio = msoTrue   ' 縦横比維持
             ' 画像の高さをアクティブセルにあわせる
             ' 結合セルの場合でも対応
             .Height = ActiveCell.MergeArea.Height
         End With

        ' 次の貼り付け先を選択（アクティブセルにする）[例：5個下のセル]
         ActiveCell.Offset(5).Select

         Set PIC = Nothing
     Next i

     ' 終了
     Application.ScreenUpdating = True
     MsgBox i & "枚の画像を挿入しました", vbInformation

End Sub

お願いします。

Excel2010,Windous 7

 こんにちは

 >         Set PIC = ActiveSheet.Pictures.Insert(Filenames(i))
 仕様の変更があったようです。

http://support.microsoft.com/kb/2396509/ja

 はずしていたら、ゴメンなさい。

 （穂高）

 回避策は2つあります
 ご参考
 ▼画像ファイルを挿入する
http://www.moug.net/tech/exvba/0120020.html

 (kanabun)

穂高さん、kanabunさんありがとうございました。
さっそく変更してみます。(くま)

コメント返信：

[ 一覧(最新更新順) ]

[[20120404175619]] 『2003写真貼り付けマクロを2010verに変更』（くま） ページの最後に飛ぶ

[[20120404175619]]　『2003写真貼り付けマクロを2010verに変更』（くま）　ページの最後に飛ぶ