VBA Excel 2010 - 嵌入图片和调整大小

嵌入图片和调整大小是在VBA Excel 2010中常用的操作之一。通过使用VBA代码，我们可以轻松地将图片插入到Excel工作表中，并对其进行适当的调整。

vba
Sub InsertAndResizeImage()
    Dim img As Picture
    Dim rng As Range
    
    ' 设置图片文件路径
    Dim imagePath As String
    imagePath = "C:\Images\Product.jpg"
    
    ' 设置图片插入的位置
    Set rng = Range("A1")
    
    ' 插入图片
    Set img = ActiveSheet.Pictures.Insert(imagePath)
    
    ' 调整图片大小
    With img
        .ShapeRange.LockAspectRatio = msoFalse ' 取消纵横比锁定
        .Width = rng.Width ' 设置图片宽度为单元格宽度
        .Height = rng.Height ' 设置图片高度为单元格高度
        .Top = rng.Top ' 设置图片的上边距与单元格相同
        .Left = rng.Left ' 设置图片的左边距与单元格相同
    End With
    
End Sub