VBA セルに合わせて移動するが、サイズ変更はしない

VBAでシート上にある全ての画像を

セルに合わせて移動するが、サイズ変更はしない　

にするコードを教えていただけませんか？

よろしくお願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2019/06/23 22:22

Placement = xlMoveで対応します。

Sub 画像ををセルに合わせて移動やサイズ変更をしない()
　Dim myPc as Picture
　　For Each myPc In ActiveSheet.Pictures
　　　If TypeName(myPc) <> "OLEObject" Then
　　　　myPc.Select False
　　　End If
　　　　myPc.Placement = xlMove
　　Next
End Sub

こちら↓でもよいのですが、OLEObjectも選択されるようです。
　For Each myPc In ActiveSheet.Pictures
　　myPc.Placement = xlMove
　Next
https://oshiete.goo.ne.jp/qa/6136326.html

この回答へのお礼

ありがとうございます。助かります。

お礼日時：2019/06/23 23:13