word批量给图片加淡蓝色边框 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → word批量给图片加淡蓝色边框

标题：word批量给图片加淡蓝色边框

只看楼主

ly970985521

等　级：新手上路
帖　子：2
专家分：0
注　册：2021-9-1

楼主

问题点数：0 回复次数：1

word批量给图片加淡蓝色边框

搜索更多相关主题的帖子: 边框　 word　批量　图片　

2021-09-01 13:03

ly970985521

等　级：新手上路
帖　子：2
专家分：0
注　册：2021-9-1

第 2 楼

得分:0

Sub Macro1()

Dim n '
On Error Resume Next ' 忽略错误
For n = 1 To 10

ActiveDocument.InlineShapes(n).Line.Visible = msoTrue
ActiveDocument.InlineShapes(n).Line.Weight = 1
ActiveDocument.InlineShapes(n).Line.ForeColor.RGB = RGB(0, 0, 255)

Next n
自问自答，有需要的可参考

2021-09-01 17:07

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-506720-1-1.html