TOP > VBA基本講座 > [ActiveXコントロール]

動作環境：各コントロールの「ファイル名」を検索してみましょう


[Web BrowserでHPを表示する]

○Web Browser Control（ファイル名Shdocvw.dll) 
   
1.VBエディタ、ツール/その他のコントロールで、コントロールの追加
　Microsoft Web Browserを選択（ファイル名SHDOCVW.DLL)　
2.UserFormにWeb Browser Controlを配置する

<例1>アクティブブックと同じフォルダにある、test.htmを表示
Private Sub UserForm_Initialize()
WebBrowser1.Navigate ActiveWorkbook.Path & "\test.htm"
’ThisWorkbook.Pathでも可
End Sub
<例2>セルに入力されたURLのページ表示
Private Sub UserForm_Initialize()
Dim sURL As String
sURL = Range("A1").Value　
WebBrowser1.Navigate sURL　
End Sub
<例3>インターネット接続状態でWeb表示
Private Sub UserForm_Initialize()
’ExcelVBAのBearWeb
WebBrowser1.Navigate "http://homepage3.nifty.com/bear/"　
End Sub


 [HTMLソース表示]         

○Internet Transfer Control(ファイル名MSINET.OCX）

　指定したURL(ファイルのフルパス可）のHTMLソースを取得し
UserFormのTextBoxで表示「インターネット接続状態でUserForm表示」

Private Sub UserForm_Initialize()
Dim sURL As String
sURL = Range("A1").Value ’セルA1に記入済みのURL取得
TextBox1.Value = Inet1.OpenURL(sURL)　’TextBox1でソース表示
End Sub 
　

[マウスでセル範囲取得]

○RefEdit Control(ファイル名REFEDIT.DLL)
　　マウスで選択したセル範囲を表示及び取得

Private Sub CommandButton1_Click()
Dim sArea As String
sArea = UserForm1.RefEdit1.Value　’選択範囲取得
Range(sArea).Interior.ColorIndex = 3　’赤色にする
End Sub

　

[インジケータで状況表示]

○ProrressBer Control(ファイル名COMCTL32.OCX）
　アナログ表示のインジケータ
Private Sub UserForm_Initialize()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
End Sub

For i = 1 To 1000
Range("A" & i ).Value = i
ProgressBar1.Value = i / 10　’処理状況を表示
Next
End Sub
　


[カレンダーコントロール]

○Calender Control(ファイル名MSCAL.OCX)
　カレンダーの表示、日付の取得
Private Sub Calendar1_Click()
Range("A1").Value = Calendar1.Value
End Sub


[入力規制テキストボックス]

○MasKEｄBox　Control(ファイル名MSMASK32.OCX)
　入力データを規制する、テキストボックス
Private Sub UserForm_Initialize()
MaskEdBox1.Mask = " ##年 ##月 ##日"
End Sub　


[動画再生]

○Animation　Control（ファイル名COMCT232.OCX)
　音声なしのavi動画ファイル再生
Private Sub UserForm_Activate()
Animation1.AutoPlay = True
Animation1.Open "ファイルのフルパス"
End Sub


TOP