マクロでの写真の表示位置の指定

[yoshi]

EXCEL2003で出来ていた写真位置指定が2007で出来なくなってしまいました。2007では画面左上隅に重なって表示されてしまいます
下記のマクロ文がその要点です。

Sub 表示()

Sheets("画像表示").Select

Range("C7").Select '表示位置
ActiveSheet.Pictures.Insert("D:\画像1.jpg").Select

'画像大きさ設定
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 200

'If Selection.ShapeRange.Width > 200 Then Selection.ShapeRange.Width = 200

Range("C22").Select '表示位置
ActiveSheet.Pictures.Insert("D:\画像2.jpg").Select

'画像大きさ設定
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 200
'If Selection.ShapeRange.Width > 200 Then Selection.ShapeRange.Width =
200

Range("C37").Select '表示位置
ActiveSheet.Pictures.Insert("D:\画像3.jpg").Select

'画像大きさ設定
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 200

'If Selection.ShapeRange.Width > 200 Then Selection.ShapeRange.Width = 200

Range("C1").Select

End Sub

[y sakuda]

"yoshi" <yo...@discussions.microsoft.com> wrote in message
news:335B3670-FDA8-447B...@microsoft.com...
> EXCEL2003で出来ていた写真位置指定が2007で出来なくなってしまいました。2007では画面左上隅に重なって表示されてしまいます
> 下記のマクロ文がその要点です。

理由は定かではありませんが、Excel2007では
>ActiveSheet.Pictures.Insert("D:\画像1.jpg").Select
ではActiveCellの位置に張り付きません。
ですから、ご自分で位置を指定してしまえばよろしいかと思います。

Sub aaa()
Dim wPic As Picture, wTop As Long, wLeft As Long
With ActiveSheet
With .Range("C7")
wTop = .Top
wLeft = .Left
End With
.Pictures.Insert("D:\画像1.jpg").Select
End With
Set wPic = Selection
wPic.Top = wTop
wPic.Left = wLeft
End Sub

--
y sakuda　Microsoft MVP for Business Productivity - Excel
(Jan 2010 - Dec 2010)
sakudaya...@hotmail.com

VBA,VBSによるツールなどがあります
http://www16.plala.or.jp/ysakuda/ystop.htm
6月27日　Windows更新履歴をVBAのページに追加しました。