用戶輸入更新/導入圖像

Question

我希望用戶只需用按鈕從他或她的計算機中選擇一張圖片，而無需調整大小或移動它。 而不是路徑可能是「導入圖像對話框」或它叫什麼。 圖片大小比率應該被鎖定，但仍然適合寬度的頁面。

我試圖修改這個沒有任何進展。

ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .UserPicture "C:\..." .TextureTile = msoFalse .RotateWithObject = msoTrue End With

Answer 1

試試這個代碼

Sub OpenImg() 
    Dim strFile 
    strFile = Application.GetOpenFilename(Title:="Selct an image", FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", MultiSelect:=False) 
    If strFile = False Then 
     MsgBox "No file selected.", vbExclamation, "Meh!" 
     Exit Sub 
    Else 
     ActiveSheet.Pictures.Insert(strFile).Select 
     With Selection.ShapeRange 
      .LockAspectRatio = msoTrue 
      .Width = ThisWorkbook.Application.Width - 75 
     End With 
    End If 
End Sub