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

使用用户输入更新/导入图像

1 个答案: