如何用代码组合插入到工作表中的某一类型对象？

作者：绿色风分类：时间：2022-08-18 浏览：78

楼主
水星钓鱼

Q：插入到工作表中的图片、表单控件，自选图形等可以通过“组合”变成一个图形对象，这样就可以对这些对象批量执行一些操作，在VBA中如何用代码组合插入到工作表中的某一类型对象？
A：可以通过Shapes.Range返回ShapeRange 对象，然后用Group方法组合。
Shapes.Range可以返回Shapes集合中图形的一个子集，其语法如下：
Shapes.Range(Index)
其中Index可以是表示图形索引号的整数，或者表示图形名称的字符串，还可以是包含以上的数组，
如

ActiveSheet.Shapes.Range(Array(1, 2, 3)).Group

将把活动工作表中按照插入顺序的第1、2、3个图形组合

以下代码可以将插入到工作表中的所有窗体复选框组合

Sub xyf()
Dim oSP As Shape
Dim arr(), i
i = 1
For Each oSP In Sheet1.Shapes
If oSP.Type = msoFormControl Then
If oSP.FormControlType = xlCheckBox Then
ReDim Preserve arr(1 To i)
arr(i) = oSP.Name
i = i + 1
End If
End If
Next
Sheet1.Shapes.Range(arr).Group
End Sub

2楼
亡者天下

过来学习一下

免责声明

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

评论列表