【重要】在Word VBA中用集合(Collection)遍历inlineshape控件_nxhujiee

http://blog.sina.com.cn/u/1421777080

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

【重要】在Word VBA中用集合(Collection)遍历inlineshape控件

(2017-04-03 17:16:03)

分类：置顶

在Word VBA中用集合(Collection)遍历inlineshape控件

━━━━━━━━━━━━━━━━━━━━━━━━━

胡子注：在word中插入多个单选按钮制作选择题，问卷调查等很方便。但由于vba不支持控件数组，所以写代码很麻烦。网上有许多VBA玩家用类方法实现控件数组，我看了一下还是不简单，于是用集合试了一下，实在是太方便了！

Dim col As New Collection
Private Sub Document_Open()
    col.Add OptionButton1
    col.Add OptionButton2
    col.Add OptionButton3
    col.Add OptionButton4
    col.Add OptionButton11
    col.Add OptionButton21
    col.Add OptionButton31
    col.Add OptionButton41
    col.Add OptionButton12
    col.Add OptionButton22
    col.Add OptionButton32
    col.Add OptionButton42
End Sub

Private Sub Commanon2_Click()  '清空所有选项
    Dim op As OptionButton
    For Each op In col
        op.Value = False
    Next
End Sub

Private Sub Commanon3_Click()    '根据控件名称操作
    Dim op As OptionButton
    For Each op In col
        MsgBox InStr(op.Name, "OptionButton1")
        If InStr(op.Name, "OptionButton1") <> 0 Then
            op.Value = True
        End If
        'MsgBox op.Name   'op.Name 为只读属性，可用
    Next
End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：【VBA】 Dir 函数使用方法

后一篇：VB中的“记录”和“数组”有什么区别

新浪BLOG意见反馈留言板　欢迎批评指正