Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31951 / 76734

←次へ　｜　前へ→


	【50024】エクセル2007では画像がうまく貼り付けられない

yayo - 07/7/4(水) 11:08 -


	引用なし

	パスワード

以前、こちらで教えていただいたコードを使って、アルバムを作成しました。
エクセル2003では、アクティブセルに画像がきれいに貼り付けられるのですが、
2007で使用すると、まったく関係のないところに画像が張り付いてしまいます。
どのようにコードを変更すれば、2003でも、2007でも機能するのでしょうか。

Public Sub InsertPicture()
　　Dim fName As Variant
　　Dim PicTop As Single
　　Dim PicLeft As Single

　　fName = Application.GetOpenFilename _
　　　　　　("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像挿入")

　　If fName = False Then
　　　 Exit Sub
　　End If
　
　　Application.ScreenUpdating = False

　　　 With Cells((Val(Mid$(Application.Caller, 5)) - 1) * 13 + 2, 2)
　　　　PicTop = .Top
　　　　PicLeft = .Left
　　End With
　

　　ActiveSheet.Pictures.Insert(fName).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
　　Selection.ShapeRange.Height = 272.25
　　Selection.ShapeRange.Width = 363#
　　Selection.ShapeRange.Rotation = 0#
　　Application.ScreenUpdating = True

End Sub

6 hits

▼

【50024】エクセル2007では画像がうまく貼り付けられない yayo 07/7/4(水) 11:08

≪