| |
yayo さん、おはようございます。
>以前、こちらで教えていただいたコードを使って、アルバムを作成しました。
>エクセル2003では、アクティブセルに画像がきれいに貼り付けられるのですが、
>2007で使用すると、まったく関係のないところに画像が張り付いてしまいます。
挿入後に調整すれば大丈夫です。
Public Sub InsertPicture()
Dim fName As Variant
'
fName = Application.GetOpenFilename _
("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像挿入")
If fName = False Then
Exit Sub
End If
Application.ScreenUpdating = False
'画像挿入し調整
With Application.ActiveSheet.Pictures.Insert(fName)
.Top = Application.ActiveCell.Top
.Left = Application.ActiveCell.Left
With .ShapeRange
.LockAspectRatio = msoTrue
.Height = 272.25
.Width = 363#
.Rotation = 0#
End With
End With
'
Application.ScreenUpdating = True
End Sub
こんな感じです。
|
|
りん
- 07/7/5(木) 6:08 -
