画像を選択しシートに置いたimageコントロールで画像を表示しています

質問

画像を選択しシートに置いたimageコントロールで画像を表示しています。
その画像を別ブックにコピーしようとしているのですが、上手くいきません。

また、できれば画像を選択時に解像度の変更や圧縮を行い、サイズを小さくしたいと思っています。

・EXCEL 2007 VBA
・画像枚数10枚　jpeg,bmp

回答No.1

watabe007

>シートに置いたimageコントロールで画像を表示しています
アクティブシート上のimageコントロールをコピーして
BOOK1のSheet1上に張り付け(BOOK1.xlsは開いておくこと)
参考に
Sub Test()
　　Dim sh As Worksheet
　　Dim myObj As OLEObject
　　Dim i As Long

　　Set sh = Workbooks("Book1.xls").Worksheets("Sheet1")
　　i = 1
　　For Each myObj In ActiveSheet.OLEObjects
　　　　If TypeName(myObj.Object) = "Image" Then
　　　　　　myObj.Copy
　　　　　　With sh.Pictures.Paste
　　　　　　　　.Top = sh.Cells(i, "B").Top
　　　　　　　　.Left = sh.Cells(i, "B").Left
　　　　　　End With
　　　　　　i = i + 10
　　　　End If
　　Next
End Sub