如何用VBA在word中插入指定路径图片?

evolymeh

将宽度和高度设置为5厘米

将图片设置为“浮于文字上方”

录制宏，实现不了，谢谢大师！

evolymeh

Dim pic As InlineShape
    Set pic = ActiveDocument.InlineShapes.AddPicture("F:\安全\2023春\管理资料\2023年平安校园资料\公章扫描件.png")
    pic.Width = CentimetersToPoints(5.5)
    pic.Height = CentimetersToPoints(6)
    Set myshape = ActiveDocument.InlineShapes(1).ConvertToShape

evolymeh

宽度和高度设置没有生效。最后一句也有问题。

evolymeh

Dim pic As InlineShape
    Set pic = ActiveDocument.InlineShapes.AddPicture("F:\2023春\扫描件.png")
    pic.Width = CentimetersToPoints(5.5)
    pic.Height = CentimetersToPoints(6)
    Set myshape = ActiveDocument.InlineShapes(1).ConvertToShape

evolymeh

Dim pic As InlineShape     Set pic = ActiveDocument.InlineShapes.AddPicture("F:\2023春\扫描件.png")     pic.Width = CentimetersToPoints(5.5)     pic.Height = CentimetersToPoints(6)     Set myshape = ActiveDocument.InlineShapes(1).ConvertToShape

evolymeh

pic.Wi/dth = Centimet/ersToP/oints(5.5)

evolymeh

Set mysh/ape = ActiveDo/cument.Inline/Shapes(1).Conv/ertToShape

evolymeh

S/et my/shape = Act/iveDocument.Inl/ineShapes(1).Conve/rtToShape

约定的童话

Sub InsertImage()
   
    '定义变量
    Dim imagePath As String
    Dim newPic As Shape
   
    '指定图片路径
    imagePath = "C:\Users\userName\Pictures\example.jpg" '请替换为您自己的图片路径
   
    '插入图片
    Set newPic = ActiveDocument.Shapes.AddPicture( _
        FileName:=imagePath, _
        LinkToFile:=False, _
        SaveWithDocument:=True, _
        Left:=0, _
        Top:=0, _
        Width:=50, _
        Height:=50 _
        )
        
    '设置宽度和高度
    newPic.LockAspectRatio = msoTrue
    newPic.Width = CentimetersToPoints(5)
   
    '设置浮动效果
    newPic.WrapFormat.Type = wdWrapSquare
    newPic.WrapFormat.Side = wdWrapBoth
    newPic.WrapFormat.DistanceTop = CentimetersToPoints(0.25)
    newPic.WrapFormat.DistanceBottom = CentimetersToPoints(0.25)
   
End Sub