各位高手，需要將整個EXCEL檔案設定為”大小和位置隨單元格而變“（注：不是插入圖片后再另行設定）。即，在插入圖片時就能自動調整為”大小和位置隨單元格而變“。有哪位高手能指教嗎？如能提供整個VBA內容將不勝感激，謝謝！！！
uj5u.com熱心網友回復：
正是我想了解的，還沒解決呢。uj5u.com熱心網友回復：
如何實作插入的圖片透明背景？
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
還可以更簡單：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
uj5u.com熱心網友回復：
設定作業表滑鼠雙擊事件：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
uj5u.com熱心網友回復：
解決了嗎。。。我現在也需要這個方法
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/248244.html
上一篇：[Lua] cjson是不是沒有提供格式檢查的介面？
下一篇：pycharm中 多游標怎么取消