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

huang1314wei

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

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

lujkhua

我做了一个窗体

luxubo

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

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

xrmay

牛，真牛，简直太了！

weiyingde

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

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

gftrewq

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

太强大了，可否分享下。

wkxxxr

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

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

huang1314wei

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

？？？？？

wkxxxr

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

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