タイトル : Re^3: VB6.0で作成したEXEから起動したパワーポイント上のレ点を監視したい 投稿日 : 2012/10/02(Tue) 13:28 投稿者 : 魔界の仮面弁士
> VBAではどうすれば、Indexの設定ができるのかわかりませんでした。 コントロール配列は使えないので、自前で配列等に入れておくか、 もしくはコントロールの名前を使って検索するようにします。 Private Sub GoForward() Dim n As Integer Dim chk As MSForms.CheckBox Dim controlName As String Dim checkedCount As Integer checkedCount = 0 For I = 1 To 3 'コントロールの名前で検索(見つからないとエラー) controlName = "CheckBox" & CStr(I) Set chk = CallByName(Me, controlName, VbGet) If CBool(chk.Value) Then checkedCount = checkedCount + 1 End If Next If checkedCount = 3 Then ActivePresentation.SlideShowWindow.View.Next End If End Sub |