Office中的循環(huán)操作控件本質(zhì)相同，由于Excel工作簿有多個工作表，PowerPoint有多個幻燈片，Word中只有單個文檔，因此具體表述略不同：
　　Word:ActiveDocument.InlineShapes.Itme()....
　　PowerPoint:ActivePresentation.Slides(“Slide號”).Item()....
　　Excel:Sheets(“工作表名”).Shapes.Item()….
　　在Excel中設(shè)置控件屬性參數(shù)的一般語句如下：
　　Dim 控件變量名As Object
　　For i = 1 To 10
　　 Set 控件變量名 = Sheets("工作表名").Shapes.Item("控件變量名" & i).OLEFormat.Object.Object控件變量名.屬性名 = 參數(shù)值
　　Next i
　　其中“控件變量名”可以?。篢extBox、ChecxBox、ComboBox等，“屬性名”和“參數(shù)值”則隨控件而變化。
　　略加修改即可擴展到其他控件。以設(shè)置12道“是非題”對應(yīng)的組合框選項為例，相應(yīng)事件與語句如下：
　　Private Sub Worksheet_Activate()
　　 Dim ComboBox As Object: Dim i As Integer: Dim c(1 To 3) As String'變量聲明
　　 c(1) = "":c(2) = "正確":c(3) = "錯誤" '數(shù)組賦值
　　 For i = 1 To 12 '循環(huán)對12個“是非題組合框”賦值
　　Set ComboBox = Sheets("基于控件的試卷").Shapes.Item("ComboBox2_" & i).OLEFormat.Object.Object
　　ComboBox.List() = c()
　　 Next i
　　End Sub