|
エクセル2000で結合したセルに写真を挿入したく下記を実行しましたがセルに挿入されるのですが、セルのサイズに変更しない写真が残ってしまいましてアドバイスをいただきたいと思います。
よろしくお願い致します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
n = Application.GetOpenFilename _
("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
If n = False Then
MsgBox "画像を選択してください(終了)"
Exit Sub
End If
Set na = ActiveSheet.Pictures.Insert(n)
With Me.Pictures.Insert(n)
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height
End With
End Sub
|
|