【Excel】Excel 打印表格时图片怎么固定在单元格里（VBA方法）

0. 简短不看版

原理是将图片的属性设置为第一种

代码如下：

'作者：小赵

Sub SelectAllSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets'选择每一张工作表
        ws.Select 
        Dim pic As Shape 
        For Each pic In ActiveSheet.Shapes'在当前表，选择所有图片
            If pic.Type = msoPicture Then
            pic.Placement = xlMoveAndSize '设置当前图片属性为大小和位置随单元格改变
            End If
        Next pic
    Next ws
End Sub

 

1. 引言

在处理Excel表格时，我们常常需要在其中插入图片来丰富内容或者进行数据展示。然而，默认情况下Excel中插入的图片是会自由浮动的，当我们滚动或打印表格时，图片可能会覆盖到其他单元格，给阅读和分析带来不便。本篇文章将介绍如何固定图片在Excel表格的单元格里，确保图片与数据保持对应关系，提高数据的可读性和整体的美观性。

2. Excel中插入图片

在Excel中插入图片有多种方法，可以使用快捷键、菜单选项或者VBA宏编程来完成。我们这里以最常用的方法示例，步骤如下：

1. 打开Excel，并选中要插入图片的单元格。
2. 在Excel的菜单栏中点击“插入（Insert）”选项卡。
3. 找到“图片（Pictures）”按钮，点击它。
4. 在弹出的对话框中选择要插入的图片文件，并点击“插入（Insert）”按钮。

3. 图片浮动与固定

3.1. 设置图片属性

我们可以通过设置图片的属性来实现固定图片在单元格内部的效果。步骤如下：

1. 选中已插入的图片。
2. 右键点击图片，选择“大小与属性”（或类似选项）。
3. 在弹出的对话框中选择“属性（Properties）”选项卡。
4. 勾选“固定在单元格（Move and size with cells）”选项。

这样设置后，无论是移动表格还是改变单元格的大小，图片都会随着单元格的变化而调整位置，保持固定在单元格内。

3.2. 使用VBA宏

另一种常用的方式是使用VBA宏编程来插入图片并固定位置。代码示例如下：

Sub InsertAndFixImage()
    Dim rng As Range
    Dim pic As Picture

    ' 选中要插入图片的单元格
    Set rng = Selection

    ' 插入图片
    Set pic = ActiveSheet.Pictures.Insert("C:\path\to\image.jpg")

    ' 调整图片大小与位置
    pic.Top = rng.Top
    pic.Left = rng.Left
    pic.Height = rng.Height
    pic.Width = rng.Width

    ' 设置图片属性
    pic.Placement = xlMoveAndSize
End Sub

将以上代码复制到Excel的VBA编辑器中（快捷键Alt+F11），然后运行宏即可在选中的单元格中插入图片并固定位置。

4. 注意事项与扩展

在使用以上方法固定图片位置时，我们需要注意以下几点：

• 图片的大小和位置是相对于单元格而言的，当调整单元格大小或改变列宽行高时，图片也会相应调整。
• 在复制或移动单元格时，固定的图片会随之复制或移动，并保持在对应的单元格内。
• 如果不希望图片随着单元格复制或移动而改变位置，可以使用绝对引用（$符号）来指定图片位置的公式。

除了固定图片的位置，我们还可以进一步操作和美化插入的图片，如设置边框、添加阴影、调整透明度等。这些功能可以通过Excel的格式设置或使用VBA宏来实现。

5. 小结

本文介绍了如何将插入的图片在Excel表格中固定在单元格内，提高表格数据的可读性和美观性。通过设置图片属性或使用VBA宏编程，我们可以灵活地控制图片的位置和大小，确保图片与对应单元格的一致性。同时，在实际应用中我们还可以根据需要进行更多样式和操作的设置，使Excel表格更加丰富和专业。

（篇幅有限，以上为文中的一个示例，其他示例及相关代码请参考附录。）

附录

示例1：通过设置图片属性固定位置

设置图片属性中的“固定在单元格”选项，即可实现将图片固定在对应单元格。

示例2：使用VBA宏插入并固定位置的图片

通过VBA宏编程，我们可以自动插入图片并设置位置，效果更加灵活和自定义。

Sub InsertAndFixImage()
    Dim rng As Range
    Dim pic As Picture

    ' 选中要插入图片的单元格
    Set rng = Selection

    ' 插入图片
    Set pic = ActiveSheet.Pictures.Insert("C:\path\to\image.jpg")

    ' 调整图片大小与位置
    pic.Top = rng.Top
    pic.Left = rng.Left
    pic.Height = rng.Height
    pic.Width = rng.Width

    ' 设置图片属性
    pic.Placement = xlMoveAndSize
End Sub

示例3：设置图片边框和样式

通过设置图片的边框和样式，可以进一步美化插入的图片。

Sub SetImageStyle()
    Dim pic As Picture

    ' 选中要设置样式的图片
    Set pic = ActiveSheet.Pictures(Application.Caller)

    ' 设置边框样式
    pic.Border.LineStyle = xlContinuous
    pic.Border.Weight = xlThin
    pic.Border.Color = RGB(0, 0, 0) ' 设置边框颜色为黑色

    ' 设置图片透明度
    pic.ShapeRange.Fill.Transparency = 0.5 ' 设置透明度为50%
End Sub

以上示例仅展示了一些常见的操作和设置，读者可以根据实际需要进行扩展和调整。

示例4：将所有图片设置为3x3大小

1、打开excel文件，按住键盘上的“Alt+F11”，打开VBA编辑器。

2、在左侧的项目资源管理器中，双击要操作的工作表名称。

3、在右侧的代码窗口中，输入以下代码：

Sub ResizePics()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
    If pic.Type = msoPicture Then
        pic.LockAspectRatio = msoFalse
        pic.Width = Application.CentimetersToPoints(3)
        pic.Height = Application.CentimetersToPoints(3)
    End If
Next pic
End Sub

4、按住键盘上的“F5”，运行代码。所有的图片就会统一调整为3厘米×3厘米的大小。