来一段word的vba代码，实现将文档中的图片尺寸统一

以下是一段VBA代码，它可以实现将Microsoft Word文档中的所有图片尺寸统一为指定的高度和宽度：

Sub ResizeAllImages()
  Dim shp As Shape
  For Each shp In ActiveDocument.Shapes
    If shp.Type = msoPicture Then
      shp.Height = Application.InchesToPoints(2)
      shp.Width = Application.InchesToPoints(3)
    End If
  Next shp
End Sub

将上面代码粘贴到Word的VBA编辑器中，然后可以在Word的"开发"选项卡上运行该宏以统一图片的尺寸。高度和宽度可以根据需要更改，例如，将以下代码更改为2英寸高，3英寸宽：

shp.Height = Application.InchesToPoints(2)
shp.Width = Application.InchesToPoints(3)

相关问题

我有一段word中的vba代码怎样在excel中调用

你可以在 Excel 中打开 Visual Basic 编辑器，然后将 Word 中的 VBA 代码复制到 Excel 的 VBA 项目中。在 Excel 中，你可以使用“工具”菜单中的“引用”选项来添加 Word 对象库的引用，以便在 Excel 中使用 Word 对象和方法。然后，你可以在 Excel 中调用 Word 中的 VBA 代码。

vba代码 将图片依次放入word表格中

以下是一个示例VBA代码，可以将指定文件夹中的所有图片依次插入到Word表格中：

Sub InsertPicturesToTable()
    
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdTable As Word.Table
    Dim wdRow As Word.Row
    Dim wdCell As Word.Cell
    Dim strFolder As String
    Dim strPicPath As String
    Dim intRow As Integer
    Dim intCol As Integer
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    
    '设置文件夹路径
    strFolder = "C:\Pictures\"
    
    '初始化Word应用程序
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    '创建新文档
    Set wdDoc = wdApp.Documents.Add
    
    '创建新表格
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range, 3, 4)
    
    '遍历文件夹中的所有图片
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strFolder)
    intRow = 1
    intCol = 1
    For Each objFile In objFolder.Files
        If objFSO.GetExtensionName(objFile.Path) Like "jpg" Or objFSO.GetExtensionName(objFile.Path) Like "png" Then
            '计算单元格位置
            If intCol > wdTable.Columns.Count Then
                intRow = intRow + 1
                intCol = 1
                Set wdRow = wdTable.Rows.Add
            End If
            Set wdCell = wdRow.Cells(intCol)
            
            '插入图片
            strPicPath = objFile.Path
            wdDoc.InlineShapes.AddPicture FileName:=strPicPath, LinkToFile:=False, SaveWithDocument:=True, Range:=wdCell.Range
            
            '调整图片大小
            wdCell.Range.InlineShapes(1).Width = wdCell.Width - 10
            wdCell.Range.InlineShapes(1).Height = wdCell.Height - 10
            
            intCol = intCol + 1
        End If
    Next objFile
    
    '释放对象
    Set objFSO = Nothing
    Set objFolder = Nothing
    Set objFile = Nothing
    Set wdCell = Nothing
    Set wdRow = Nothing
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
End Sub

该代码将创建一个3行4列的表格，并将指定文件夹中的所有jpg和png文件依次插入到表格中。你可以根据需要修改表格大小、行列数目以及文件夹路径和文件类型等参数。