エクセル2007のマクロで画像挿入がうまくいきません。

質問

エクセル2007のマクロで画像挿入がうまくいきません。
写真のサイズ縦横比がセルにあっていないので伸びてしまいます。
下記のプログラムでサイズ変更も可能でしょうか？
フォームのボタンの上に張り付けた場合、ボタンを隠す事は
出来ますか？
ボタンの色は変更できるのでしょうか？
いろいろわがままな質問で申し訳ありません。
マクロ初心者です。

Sub Pic_in2007()

fname = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(fname).Select
Selection.ShapeRange.LockAspectRatio = msoFalse

Selection.ShapeRange.Height = range("B5:C6").height
Selection.ShapeRange.Width = range("B5:C6").width
Selection.ShapeRange.left = range("B5:C6").left
Selection.ShapeRange.top = range("B5:C6").top

End Sub

回答No.1

watabe007 · ベストアンサー

>写真のサイズ縦横比がセルにあっていないので伸びてしまいます。
縦横比を変えずに貼り付けるのなら
セルの高さ、幅、どちらに合わせるか　ですね

幅にあわせるのなら
ActiveSheet.Pictures.Insert(fname).Select
'Selection.ShapeRange.LockAspectRatio = msoFalse 'これは不要

'Selection.ShapeRange.Height = range("B5:C6").height 'これも不要
Selection.ShapeRange.Width = range("B5:C6").width '高さに合わせるのならこちらをコメントアウト
Selection.ShapeRange.left = range("B5:C6").left
Selection.ShapeRange.top = range("B5:C6").top

お礼

早速試してみます。
ありがとうございました。

回答No.2

watabe007

>フォームのボタンの上に張り付けた場合、ボタンを隠す事は
>出来ますか？

Office 2007 で 図形の順序が変更されない場合がある
http://support.microsoft.com/kb/934257/ja

お礼

早速試してみます。
ありがとうございました