EXCEL 整个文件 如何设置为 ”大小和位置随单元格而变“？

[hdwjm]

各位高手，需要将整个EXCEL文件设置为”大小和位置随单元格而变“（注：不是插入图片后再另行设置）。即，在插入图片时就能自动调整为”大小和位置随单元格而变“。有哪位高手能指教吗？如能提供整个VBA内容将不胜感激，谢谢！！！

[weixin_41015181]

正是我想了解的，还没解决呢。

[weixin_41015181]

引用 1 楼 weixin_41015181的回复:

正是我想了解的，还没解决呢。

如何实现插入的图片透明背景？

[weixin_44814225]

Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets(1).Shapes(1).Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub

[weixin_44814225]

还可以更简单：
Private Sub Workbook_Open()
Sheets(1).Shapes(1).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
With Selection.ShapeRange

.LockAspectRatio = msoFalse
.Left = Sheets(1).Range("A1").Left
.Top = Sheets(1).Range("A1").Top
.Width = Sheets(1).Range("A1").Width
.Height = Sheets(1).Range("A1").Height
End With
End Sub

[weixin_44814225]

设置工作表鼠标双击事件：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "插入图片"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "位图文件", "*.jpg;*.png;*.bmp"
If .Show Then
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Target.Left, Target.Top, Target.Width, Target.Height).Select
Selection.Name = "P" & Target.Row
Selection.ShapeRange.Fill.UserPicture .SelectedItems(1)

End If
End With
End If
End Sub

[柒杉丶]

解决了吗。。。我现在也需要这个方法