Excel 图片：在 Excel 中插入、更改、删除多个图片

在 Excel 中插入图片是非常常见的需求，然而如何更方便地管理和操作这些图片呢？本文将介绍如何在 Excel 中插入、更改和删除多个图片，方便大家进行图片管理。

插入图片到 Excel

插入图片到 Excel 可以通过如下步骤：

选中要插入图片的单元格
点击菜单栏的“插入”，在“插入”里找到“图片”并点击
选择要插入的图片，然后点击“插入”

示例代码：

Sub insertPictures()
    Dim path As String
    path = "C:\Users\Administrator\Pictures\SamplePictures.jpg"
    Range("A1").Select
    ActiveSheet.Shapes.AddPicture Filename:=path, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=Range("A1").Left, _
    Top:=Range("A1").Top, _
    Width:=-1, _
    Height:=-1
End Sub

上述代码定义了一个 insertPictures 的 VBA 子程序，用于向单元格 A1 插入一张名为 SamplePictures.jpg 的图片。

更改图片大小

更改图片大小也很简单，只需要选择图片，然后按住鼠标左键调整图片大小即可。

同时，我们也可以通过 VBA 代码来更改图片的大小。

示例代码：

Sub resizePictures()
    Dim picWidth As Integer
    Dim picHeight As Integer
    Dim picShape As Shape
    Set picShape = ActiveSheet.Shapes.Item(1) ' 获取第一个图片
    picWidth = 120  ' 设置宽为 120
    picHeight = 50  ' 设置高为 50
    With picShape
        .ScaleWidth picWidth / .Width, msoFalse
        .ScaleHeight picHeight / .Height, msoFalse
    End With
End Sub

上述代码定义了一个 resizePictures 的 VBA 子程序，用于将第一个图片的宽度调整为 120，高度调整为 50。

删除图片

删除图片只需要选择图片，然后按下 Delete 键或右键删除即可。

当然，我们也可以通过 VBA 代码来批量删除图片。

示例代码：

Sub deletePictures()
    Dim i As Integer
    For i = ActiveSheet.Shapes.Count To 1 Step -1 ' 倒序循环
        ActiveSheet.Shapes.Item(i).Delete
    Next i
End Sub

上述代码定义了一个 deletePictures 的 VBA 子程序，用于删除所有的图片。