如何运用VBA将指定形状及其内文本的格式应用于其它形状呢？

作者：绿色风分类：时间：2022-08-17 浏览：164

楼主
0Mouse

Q：如何运用VBA将指定形状及其内文本的格式应用于其它形状呢？
示例：如图1所示，如何运用VBA将文档中左侧圆角矩形及其内文本的格式应用于右侧圆角矩形呢？预期效果如图2所示。
图1：问题示例

图2：预期效果

A：打开文档后，按<Alt+F11>组合键，双击左侧工程资源管理器窗口的“ThisDocument”，在显示的空白窗格内录入以下代码，按<F5>键，完毕。

Sub 运用VBA将指定形状及其内文本的格式应用于其它形状1()
With ActiveDocument
'形状格式
.Shapes(1).Select
Selection.CopyFormat
.Shapes(2).Select
Selection.PasteFormat
'文本格式
.Shapes(1).TextFrame.TextRange.Select
Selection.CopyFormat
.Shapes(2).TextFrame.TextRange.Select
Selection.PasteFormat
End With
End Sub
Sub 运用VBA将指定形状及其内文本的格式应用于其它形状2()
With ActiveDocument
'形状格式
.Shapes(1).PickUp
.Shapes(2).Apply
'文本格式
.Shapes(1).TextFrame.TextRange.Select
Selection.CopyFormat
.Shapes(2).TextFrame.TextRange.Select
Selection.PasteFormat
End With
End Sub

附件：

运用VBA将指定形状及其内文本的格式应用于其它形状.rar

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表