宏代码
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Sub 图片格式()
Dim H
Dim w
Dim N
N = 0
Myheigth = 4.9
For Each ishape In ActiveDocument.InlineShapes
H = ishape.Height
w = ishape.Width
N = N + 1
ishape.Height = 28.345 * Myheigth
ishape.Width = w * ishape.Height / H
ishape.Borders(wdBorderLeft).LineStyle = wdLineStyleThickThinSmallG ap
ishape.Borders(wdBorderLeft).LineWidth = wdLineWidth450pt
ishape.Borders(wdBorderLeft).Color = wdColorGreen
ishape.Borders(wdBorderRight).LineStyle = wdLineStyleThinThickSmall Gap
ishape.Borders(wdBorderRight).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderRight).Color = wdColorGreen
ishape.Borders(wdBorderBottom).LineStyle = wdLineStyleThinThickSmal lGap
ishape.Borders(wdBorderBottom).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderBottom).Color = wdColorGreen
ishape.Borders(wdBorderTop).LineStyle = wdLineStyleThickThinSmallGa p
ishape.Borders(wdBorderTop).LineWidth = wdLineWidth450pt
ishape.Borders(wdBorderTop).Color = wdColorGreen
Next ishape
End Sub