excel怎么用vba保存图片大小

在Excel中使用VBA保存图片大小的方法包括使用Shape对象、获取图片的宽高属性、将这些属性保存到指定位置。可以通过以下步骤进行详细介绍。

1、使用Shape对象获取图片信息

首先，我们需要了解如何在Excel中使用Shape对象来获取图片的信息。Shape对象是Excel中用于表示图形元素（如图片、图表、文本框等）的对象。通过Shape对象，我们可以访问图片的各种属性，包括宽度和高度。

2、获取图片的宽度和高度

在获取图片的信息之前，我们需要确保图片已经插入到工作表中。然后，我们可以使用Shape对象的Width和Height属性获取图片的宽度和高度。例如，假设图片的名称为“Picture 1”，我们可以使用以下代码获取图片的宽度和高度：

Dim pic As Shape

Set pic = ActiveSheet.Shapes("Picture 1")
Dim picWidth As Double
Dim picHeight As Double
picWidth = pic.Width
picHeight = pic.Height

在上述代码中，我们首先定义了一个Shape对象变量pic，并将其设置为工作表中名为“Picture 1”的图片。然后，我们定义了两个Double类型的变量picWidth和picHeight，分别用于存储图片的宽度和高度。最后，我们通过Shape对象的Width和Height属性获取图片的宽度和高度，并将其存储在相应的变量中。

3、将图片大小保存到指定位置

获取图片的宽度和高度后，我们可以将这些信息保存到工作表中的指定位置。例如，我们可以将宽度和高度分别保存到单元格A1和A2中：

Range("A1").Value = picWidth

Range("A2").Value = picHeight

通过上述代码，我们将图片的宽度保存到单元格A1中，将高度保存到单元格A2中。这样，我们就可以在工作表中查看图片的大小信息。

4、综合示例代码

为了便于理解，我们可以将上述步骤整合到一个完整的VBA代码示例中：

Sub SavePictureSize()

    ' 定义Shape对象变量
    Dim pic As Shape
    ' 设置Shape对象变量为工作表中名为“Picture 1”的图片
    Set pic = ActiveSheet.Shapes("Picture 1")
    ' 定义用于存储宽度和高度的变量
    Dim picWidth As Double
    Dim picHeight As Double
    ' 获取图片的宽度和高度
    picWidth = pic.Width
    picHeight = pic.Height
    ' 将宽度和高度保存到单元格A1和A2中
    Range("A1").Value = picWidth
    Range("A2").Value = picHeight
End Sub

通过运行上述代码，我们可以在工作表中查看名为“Picture 1”的图片的宽度和高度信息。

5、处理多个图片的情况

在实际应用中，我们可能需要处理多个图片的情况。在这种情况下，我们可以使用循环遍历工作表中的所有Shape对象，并获取每个图片的大小信息。例如：

Sub SaveAllPicturesSize()

    ' 定义Shape对象变量
    Dim pic As Shape
    ' 定义用于存储宽度和高度的变量
    Dim picWidth As Double
    Dim picHeight As Double
    ' 定义用于记录当前行号的变量
    Dim rowNum As Integer
    rowNum = 1
    ' 遍历工作表中的所有Shape对象
    For Each pic In ActiveSheet.Shapes
        ' 检查Shape对象是否为图片
        If pic.Type = msoPicture Then
            ' 获取图片的宽度和高度
            picWidth = pic.Width
            picHeight = pic.Height
            ' 将宽度和高度保存到当前行的单元格中
            Cells(rowNum, 1).Value = pic.Name
            Cells(rowNum, 2).Value = picWidth
            Cells(rowNum, 3).Value = picHeight
            ' 增加行号
            rowNum = rowNum + 1
        End If
    Next pic
End Sub

通过上述代码，我们可以遍历工作表中的所有Shape对象，并获取每个图片的大小信息。然后，我们将图片的名称、宽度和高度分别保存到当前行的单元格中。这样，我们就可以在工作表中查看所有图片的大小信息。

6、总结

通过本文，我们详细介绍了在Excel中使用VBA保存图片大小的方法。首先，我们介绍了如何使用Shape对象获取图片的信息。然后，我们介绍了如何获取图片的宽度和高度，并将这些信息保存到指定位置。最后，我们提供了一个处理多个图片的示例代码。通过这些步骤，我们可以轻松地在Excel中使用VBA保存图片的大小信息。

相关问答FAQs：

1. 如何使用VBA在Excel中保存图片的大小？

• 问题： 我想在Excel中使用VBA保存图片，但是希望能够控制图片的大小。应该如何操作？
• 回答： 您可以使用VBA代码来保存图片，并通过调整图片的大小来满足您的需求。下面是一个示例代码，展示了如何使用VBA保存图片并设置其大小：

Sub SaveAndResizeImage()
    Dim img As Picture
    Dim filePath As String
    Dim newWidth As Long
    Dim newHeight As Long
    
    ' 设置图片路径
    filePath = "C:pathtoyourimage.jpg"
    
    ' 设置新的图片大小
    newWidth = 200
    newHeight = 200
    
    ' 插入图片
    Set img = ActiveSheet.Pictures.Insert(filePath)
    
    ' 调整图片大小
    img.ShapeRange.LockAspectRatio = msoFalse
    img.Width = newWidth
    img.Height = newHeight
    
    ' 保存图片
    img.Copy
    With New Workbook
        With .Sheets(1)
            .Paste
            .Shapes(1).CopyPicture xlScreen, xlPicture
            .Shapes(1).Delete
        End With
        .SaveAs "C:pathtosaveimage.jpg"
        .Close SaveChanges:=False
    End With
    
    ' 清除剪贴板中的图片
    Application.CutCopyMode = False
    
    ' 提示保存成功
    MsgBox "图片保存成功！"
End Sub

请注意，您需要将代码中的图片路径（filePath）更改为您自己的图片路径，并根据需要调整新的图片大小（newWidth和newHeight）。

2. 如何使用VBA在Excel中保存图片时保持其原始大小？

• 问题： 我想在Excel中使用VBA保存图片，但是希望保持图片的原始大小。应该如何操作？
• 回答： 要在保存图片时保持其原始大小，您可以使用以下VBA代码：

Sub SaveImageWithOriginalSize()
    Dim img As Picture
    Dim filePath As String
    
    ' 设置图片路径
    filePath = "C:pathtoyourimage.jpg"
    
    ' 插入图片
    Set img = ActiveSheet.Pictures.Insert(filePath)
    
    ' 保存图片
    img.Copy
    With New Workbook
        With .Sheets(1)
            .Paste
            .Shapes(1).CopyPicture xlScreen, xlPicture
            .Shapes(1).Delete
        End With
        .SaveAs "C:pathtosaveimage.jpg"
        .Close SaveChanges:=False
    End With
    
    ' 清除剪贴板中的图片
    Application.CutCopyMode = False
    
    ' 提示保存成功
    MsgBox "图片保存成功！"
End Sub

请注意，您需要将代码中的图片路径（filePath）更改为您自己的图片路径。

3. 如何使用VBA在Excel中保存多个图片的大小？

• 问题： 我想在Excel中使用VBA保存多个图片，并对每个图片进行不同的大小调整。应该如何操作？
• 回答： 要在Excel中使用VBA保存多个图片并调整它们的大小，您可以使用以下代码示例：

Sub SaveAndResizeMultipleImages()
    Dim img As Picture
    Dim filePaths As Variant
    Dim newWidths As Variant
    Dim newHeights As Variant
    Dim i As Long
    
    ' 设置图片路径和对应的新大小
    filePaths = Array("C:pathtoimage1.jpg", "C:pathtoimage2.jpg", "C:pathtoimage3.jpg")
    newWidths = Array(200, 300, 150)
    newHeights = Array(200, 250, 100)
    
    ' 循环处理每个图片
    For i = LBound(filePaths) To UBound(filePaths)
        ' 插入图片
        Set img = ActiveSheet.Pictures.Insert(filePaths(i))
        
        ' 调整图片大小
        img.ShapeRange.LockAspectRatio = msoFalse
        img.Width = newWidths(i)
        img.Height = newHeights(i)
        
        ' 保存图片
        img.Copy
        With New Workbook
            With .Sheets(1)
                .Paste
                .Shapes(1).CopyPicture xlScreen, xlPicture
                .Shapes(1).Delete
            End With
            .SaveAs "C:pathtosaveimage_" & i & ".jpg"
            .Close SaveChanges:=False
        End With
        
        ' 清除剪贴板中的图片
        Application.CutCopyMode = False
    Next i
    
    ' 提示保存成功
    MsgBox "所有图片保存成功！"
End Sub

请注意，您需要将代码中的图片路径（filePaths）、新的图片宽度（newWidths）和新的图片高度（newHeights）根据需要进行更改。