老师们，VBA插入图片后，想对其格式设置，请老师们帮帮忙

yjwdjfqb

老师们，VBA插入图片后，想对其格式设置，请老师们帮帮忙，谢谢老师们了
测试.rar (80.38 KB, 下载次数: 5)

2022-4-17 12:17 上传

点击文件名下载附件

1. Sub Macro1()
   
2. 
   
3. ss = ThisDocument.Path & ""
   
4. Selection.InlineShapes.AddPicture FileName:=ss & "企鹅.jpg", LinkToFile:=False, SaveWithDocument:=True
   
5. '插入，企鹅，图片后，设置图片高度5.5cm，宽度3.5cm，居左排列
   
6. Selection.InlineShapes.AddPicture FileName:=ss & "夏天.jpg", LinkToFile:=False, SaveWithDocument:=True
   
7. '插入，夏天，图片后，设置图片高度4.7cm，宽度3.6cm，居中排列
   
8. End Sub

复制代码

蜀中草莽

Sub Mac()          ss = ThisDocument.Path & "\"     Selection.InlineShapes.AddPicture(FileName:=ss & "企鹅.jpg", LinkToFile:=False, SaveWithDocument:=True).Select     '插入，企鹅，图片后，设置图片高度5.5cm，宽度3.5cm，居左排列     With Selection.InlineShapes(1)         .Height = 28.35 * 5.5         .Width = 28.35 * 3.5         .Fill.Visible = msoFalse         .Line.Visible = msoFalse         .LockAspectRatio = msoFalse         .PictureFormat.ColorType = msoPictureAutomatic              End With     Selection.MoveDown unit:=wdParagraph        Selection.InlineShapes.AddPicture(FileName:=ss & "夏天.jpg", LinkToFile:=False, SaveWithDocument:=True).Select     ''插入，夏天，图片后，设置图片高度4.7cm，宽度3.6cm，居中排列     With Selection.InlineShapes(1)         .Height = 28.35 * 4.7         .Width = 28.35 * 3.6         .Fill.Visible = msoFalse         .Fill.Solid         .Line.Visible = msoFalse         .LockAspectRatio = msoFalse         .PictureFormat.ColorType = msoPictureAutomatic              End With     Selection.MoveDown unit:=wdParagraph End Sub

蜀中草莽

Sub Mac()          ss = ThisDocument.Path & "\"     Selection.InlineShapes.AddPicture(FileName:=ss & "企鹅.jpg", LinkToFile:=False, SaveWithDocument:=True).Select     '插入，企鹅，图片后，设置图片高度5.5cm，宽度3.5cm，居左排列     With Selection.InlineShapes(1)         .Height = 28.35 * 5.5         .Width = 28.35 * 3.5         .Fill.Visible = msoFalse         .Line.Visible = msoFalse         .LockAspectRatio = msoFalse         .PictureFormat.ColorType = msoPictureAutomatic              End With     Selection.MoveDown unit:=wdParagraph        Selection.InlineShapes.AddPicture(FileName:=ss & "夏天.jpg", LinkToFile:=False, SaveWithDocument:=True).Select     ''插入，夏天，图片后，设置图片高度4.7cm，宽度3.6cm，居中排列     With Selection.InlineShapes(1)         .Height = 28.35 * 4.7         .Width = 28.35 * 3.6         .Fill.Visible = msoFalse         .Fill.Solid         .Line.Visible = msoFalse         .LockAspectRatio = msoFalse         .PictureFormat.ColorType = msoPictureAutomatic              End With     Selection.MoveDown unit:=wdParagraph End Sub