求Excel VBA代码：生成电子印章

huang1314wei · 发表于 2015-11-8 14:31

weiyingde 发表于 2015-11-8 14:13
真不好意思，我将你给的代码，稍作修改，如下：
Sub 组合图形()
Dim myshape As Shape, i%, arr()

加两句代码即可

Sub 组合图形()
Dim myshape As Shape, i%, arr()
  rw = Sheets("图章参数").Range("a65536").End(xlUp).Row
  For j = 3 To rw
For Each myshape In Sheet1.Shapes
      If myshape.TopLeftCell.Address = Range("D" & j).Address Then
         i = i + 1
         ReDim Preserve arr(i - 1)
         myshape.Name = Range("D" & j).Address & i
         arr(i - 1) = Range("D" & j).Address & i
      End If
Next
Sheet1.Shapes.Range(arr).Group
i=0 '把i=0目的是方便下次循环，否则i会一直递增
Erase arr  ‘清空数组
Next
End Sub
思路基本是对的，但是第二次循环的时候，你忘了给arr重置

weiyingde · 发表于 2015-11-8 15:06

不是忘了，而是第一次接触到循环操作chart的实例，多谢你的指导，谢谢了。

lujkhua · 发表于 2015-11-9 20:44

本帖最后由 lujkhua 于 2015-11-21 21:46 编辑

我做了一个窗体

luxubo · 发表于 2015-11-9 21:13

huang1314wei 发表于 2015-11-6 22:11
excel做出来是这个效果，你满意我再放代码

作为菜鸟的我真是长见识了

xrmay · 发表于 2015-11-9 22:10

牛，真牛，简直太了！

weiyingde · 发表于 2015-11-10 11:24

lujkhua 发表于 2015-11-9 20:44
我做了一个窗体

谢谢，盼贴出代码。
另外，提几点完善意见：
1、外围文字是否可以用下拉框点击选取；
2、窗体中的文字和图标数据源能否与工作表中的某一单元格相关联
3、你窗体中的图标是来自系统中的“特殊符号",能否支持gif、png、和jpg等常见类型的图片。

gftrewq · 发表于 2015-11-10 11:55

lujkhua 发表于 2015-11-9 20:44
我做了一个窗体

太强大了，可否分享下。

wkxxxr · 发表于 2015-11-10 19:06

huang1314wei 发表于 2015-11-6 22:14
算了，不管你满意不满意，我代码放出来吧，其实不难，所用到的属性都是通过录制宏得到的，我从来不怎么记这 ...

运行时错误
.ShapeRange.Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
运行438错，对象不支持该属性或方法
只画了个圆，这是为什么。

huang1314wei · 发表于 2015-11-10 20:32

wkxxxr 发表于 2015-11-10 19:06
运行时错误
.ShapeRange.Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
运行438错，对 ...

？？？？？

wkxxxr · 发表于 2015-11-12 15:21

huang1314wei 发表于 2015-11-10 20:32
？？？？？

运行代码，出现438错误，就在那句

		自动登录	找回密码
密码			免费注册

[求助] 求Excel VBA代码：生成电子印章

评分