A-A+

全部图片加边框并居中的word宏

2012年09月09日 软件 评论 3 条 阅读 3,210 次
如果您有代购或者代维服务器、PHP网站建设、程序代码修改、系统开发等需求,可以联系我购买付费服务。QQ 379880222

Sub 图片居中加框()

'

' Macro1 Macro

'

For Each iShape In ActiveDocument.InlineShapes '遍历

iShape.Select '选定

With Selection.InlineShapes(1)

With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle

.LineWidth = wdLineWidth100pt

.Color = wdColorAutomatic

End With

With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle

.LineWidth = wdLineWidth100pt

.Color = wdColorAutomatic

End With

With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle

.LineWidth = wdLineWidth100pt

.Color = wdColorAutomatic

End With

With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle

.LineWidth = wdLineWidth100pt

.Color = wdColorAutomatic

End With

.Borders.Shadow = False

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphCenter

End With

End With

With Options

.DefaultBorderLineStyle = wdLineStyleSingle

.DefaultBorderLineWidth = wdLineWidth100pt

.DefaultBorderColor = wdColorAutomatic

End With

Next '循环

End Sub

标签:

3 条留言  访客:2 条  博主:1 条

  1. avatar 潇雨博客

    兄弟潇雨跟换域名了麻烦你你下 新的域名 ixiaoyu.me

    • avatar lxy789lxy

      恩,好的。

  2. avatar anchor

    你好,可以告诉我你联系方式妈,有事情和你联系!

给我留言