[ 紅豆blog ] 应用VBA出示的规范控制可考虑大部分程序运行的必须。但对一些特殊的要求（或以便简单化程序运行的开发设计），可在程序运行中应用ActiveX控制。ActiveX是由客户应用编程设计語言订制的可器重目标，在Windows系统软件中内置了很多这类控制。

应用VBA出示的规范控制可考虑大部分程序运行的必须。但对一些特殊的要求（或以便简单化程序运行的开发设计），可在程序运行中应用ActiveX控制。ActiveX是由客户应用编程设计語言订制的可器重目标，在Windows系统软件中内置了很多这类控制。

ActiveX控制的拓展名叫.ocx，能用VB、VC、Java等語言开发设计。

1 升级MSCOMCTL.OCX版本号

MSCOMCTL.OCX是公共ActiveX软件模块。假如版本号太低，会造成没法额外控制。

I 获得MSCOMCTL.OCX最新版本6.1.98.34

II 到C:\WINDOWS\system32下寻找文档MSCOMCTL.OCX

III 用最新版本遮盖旧版

IV 点鼠标右键查询"特性"→"版本号",看版本信息是不是升级为6.1.98.34

V Win R（开启“运作”对话框），键入：Regsvr32 MSCOMCTL.OCX

VI 随后再次开启EXCEL就可以了。

MSCOMCTL.OCX免费下载部位：

http://club.excelhome.net/thread-939821-1-1.html

２ 加上ActiveX控制到辅助工具

Alt F11(开启VBE）→ *** →客户文本框，在工程项目中提升一个客户文本框，另外显示信息出“辅助工具”→右键→额外控制：Microsoft ProgressBar Control 6.0。

VBA｜使用窗体控件14：使用ActiveX控件

3 加上客户文本框和控制

VBA｜使用窗体控件14：使用ActiveX控件

4 启用文本框编码

Sub 显示信息时间轴()

frmProgress.Show

End Sub

5 文本框编码

Private Sub UserForm_Initialize()

Me.Height = 83

Frame1.Visible = False '掩藏架构以及內部控制

End Sub

Private Sub cmdHide_Click()

Dim r As Long

r = Worksheets("Sheet3").Rows.Count

r = 10000

Me.Height = 168

Frame1.Visible = True

pb1.Min = 0

pb1.Max = r

pb1.Value = 0

With Worksheets("Sheet3")

For i = 1 To r

If i Mod 2 = 0 Then

.Rows(i).Hidden = True '掩藏行

End If

pb1.Value = i '升级时间轴

DoEvents '出让决策权

Next

End With

Me.Height = 83

End Sub