Excelマクロ 選択画像の大きさを100%に

貼り付けた画像で、選択したものの画像の大きさを、元のサイズ100%にしたいです。

For Each shp in selection
shp.ScaleHeight 1, msoTrue

というようにしたいのですが、うまくいかず、手詰まりになりました。

簡単なサンプルを作って頂けないでしょうか。

No.2 ベストアンサー 回答者： mitarashi 回答日時： 2013/03/29 23:53

画像を選択したSelectionはDrawingObjectsなので、取り扱いが面倒な様です。

xl2010で試しています。ご参考まで。
Sub test()
Dim drawObjs As DrawingObjects
Dim shp As Shape
If TypeName(Selection) <> "DrawingObjects" Then Exit Sub
Set drawObjs = Selection
For Each shp In drawObjs.ShapeRange
With shp
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
End With
Next shp
End Sub

参考URL：http://www.clayhouse.jp/vba/vba03.htm#vba1

この回答へのお礼

ありがとうございました。
教えて頂いた内容を元に、目的としていたマクロを作ることが出来ました。
長い間悩んでいた事だったので、本当に感謝しています。

お礼日時：2013/04/17 19:13

No.1 回答者： mika24asuka 回答日時： 2013/03/28 16:46

Excelマクロ 選択画像の変更

http://officetanaka.net/excel/vba/tips/tips87.htm

Excelマクロ 選択画像の変更
http://www.bing.com/images/search?q=Excel%e3%83% …

この回答への補足

web検索程度のことはした上での質問でした。
紹介頂いたサイトで解決する事項かもしれませんが、私にはわかりませんでした。
Selection に対して、ScaleHeightができなくて、具体的な方法を知りたいのです。
是非、教えてください。

補足日時：2013/03/29 08:28

この回答へのお礼

あｒ

お礼日時：2013/04/17 19:10