利用vba实现word文档表格内的图片调整到满铺单元格大小，即图片高度和宽度与单元格相同，或者同时减少0.1mm,不至于压边框线

在VBA (Visual Basic for Applications) 中，你可以通过编写宏来实现Word文档中表格内图片的自动调整。以下是一个简单的步骤说明：

1. 打开VBA编辑器：
- 点击 Word 菜单栏中的 "开发者" -> "Visual Basic"。

2. 创建新模块：
- 新建一个模块，在右侧窗格中右键选择 "插入" -> "Module"。

3. 编写宏代码：

Sub AdjustPictureSize()
    Dim doc As Document
    Dim tbl As Table
    Dim rng As Range
    Dim pic As Shape
    
    ' Set the document and table you want to work with
    Set doc = ActiveDocument
    For Each tbl In doc.Tables
        For Each rng In tbl.Range
            ' Check if a picture exists in this cell
            If rng.HasPicture Then
                Set pic = rng.Picture
                With pic
                    ' Resize the picture to fit the cell dimensions
                    .Width = rng.Width
                    .Height = rng.Height
                    
                    ' Optionally, reduce size by 0.1 mm
                    '.Width = .Width - 0.1 ' Ensure to convert to millimeters or adjust accordingly
                    '.Height = .Height - 0.1
                    
                    ' Make sure not to go beyond the border line
                    ' You'll need to calculate borders here based on your requirements, e.g., .Left > 0.1
                    If .Left < 0.1 Then
                        .Left = 0.1
                    End If
                    ' Add similar conditions for top, right, bottom
                End With
            End If
        Next rng
    Next tbl
End Sub

4. 运行宏：
- 在 VBA 窗口，按 F5 或者点击 "立即运行" 来执行 `AdjustPictureSize` 宏。

这个代码会遍历文档中的每个表格，并调整其中的图片大小。记住在实际应用时，可能需要根据你的文档的具体情况以及你对边距的要求微调代码。