求图片里继续添加文字（文字累加）

CCTV20082008

编辑图片的VBA.zip (6.71 KB, 下载次数: 21)

2011-5-13 22:03 上传

点击文件名下载附件

1 图片累加文字的代码（ 查了很多地方查不到）

2  红色图片（AutoShape 3） 属于图片什么类型

For Each  AutoShape 3  In Sheet1.Shapes
AutoShape 3.Type = 13 ？ 还是其他什么数字

蓝桥玄霜

1. Sub Macro1()
   
2. Dim aa$, bb$, cel As Range
   
3.     For Each cel In Selection
   
4.         bb = bb & "," & cel.Value
   
5.     Next
   
6.     ActiveSheet.Shapes("AutoShape 3").Select
   
7.     aa = Selection.Characters.Text
   
8.     Selection.Characters.Text = aa & bb
   
9.     Range("B1").Select
   
10. End Sub
    

复制代码

图形属于绘图对象中的圆角矩形。

CCTV20082008

在线等帮助 谢谢