エクセル2007でマクロを使った写真挿入がうまくいきません。

質問

エクセル2007でマクロを使った写真挿入がうまくいきません。
エクセル2003で使っていたひな形をもらったのですが2007では結合したセルから
ずれてしまいます。
どうすれば位置の修正をできますか？
また、結合した大きなセルの中にフォームボタンを付けいるのですが
2003では写真が挿入されるとボタンは隠れてしまっていたのですが、
2007では挿入した写真に重ねって写真が見ずらいです。
隠すことはできるのでしょうか？
なにぶん初心者なのでお願いします。

Sub Pic_in()

' マクロ記録日 : 2003/7/1 kome

fname = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(fname).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 247.5
Selection.ShapeRange.Width = 350
End Sub

回答No.1

keithin · ベストアンサー

そのマクロでは，2007では以前と同じようには動かなくなりました。
たとえば「結合セル」の場所が　B5:C6　だとすると

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

で使ってみてください。
もちろん，実際のあなたのエクセルの目的のセル番地に記入を直してください。

お礼

速い回答ありがとう御座いました。
きちんと貼り付けできたのですが、
写真のサイズ縦横比がセルにあっていないので伸びてしまいます。
教えて頂いたプログラムでサイズ変更も可能でしょうか？
フォームのボタンの上に張り付けた場合、ボタンを隠す事は
出来ますか？
ボタンの色は変更できるのでしょうか？
いろいろわがままな質問で申し訳ありません。