VBA插入图片名称，有指定名称的图片

yjwdjfqb

VBA插入图片名称，有指定名称的图片
各位老师好，想插入，图片名称中，包含“企鹅”二个字的图片，请老师们帮修改下，谢谢老师们了！

1. Sub test()
   
2. 
   
3. Dim MyPath$
   
4. 
   
5. 
   
6. 
   
7. MyPath = ThisDocument.path
   
8. 
   
9. 
   
10. Set sha = ActiveDocument.InlineShapes.AddPicture(FileName:=MyPath & "" & "企鹅.jpg")
    
11. sha.Height = 28.345 * 4
    
12. sha.Width = 28.345 * 4
    
13. 
    
14. 
    
15. End Sub
    

复制代码

VBA插入图片名称，有指定名称的图片.rar (254 KB, 下载次数: 8)

2022-4-21 09:55 上传

点击文件名下载附件

limonet

Sub WORDInsertPic()
    With CreateObject("Scripting.FileSystemObject").getfolder(ThisDocument.Path)
        For Each F In .Files
            If F.Name Like "*企鹅*" Then
                i = i + 1
                Selection.EndKey Unit:=wdStory
                Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
                Selection.InlineShapes.AddPicture F.Path  '插入当前循环到的jpg文件
                ActiveDocument.InlineShapes(i).Height = 28.345 * 4
                ActiveDocument.InlineShapes(i).Width = 28.345 * 4
                Selection.TypeParagraph '插入一行
            End If
        Next
    End With
End Sub

yjwdjfqb

limonet 发表于 2022-4-21 17:59
Sub WORDInsertPic()
    With CreateObject("Scripting.FileSystemObject").getfolder(ThisDocument.Path ...

谢谢老师的帮助！