全部图片加边框并居中的word宏
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
兄弟潇雨跟换域名了麻烦你你下 新的域名 ixiaoyu.me
恩,好的。
你好,可以告诉我你联系方式妈,有事情和你联系!