Добрый вечер господа !
Подскажите кто сталкивался ......

Имею обьект - необходимо задать его ширину ??????
MoveWindow,SetWindowPos - пробывал, Align через GetProp - тоже


Option Explicit
Private Const cbName = "ShowProgress"
Private Const msoBarTop = 1
Private Const msoControlEdit = 2
Private Const msoControlActiveX = 22

Private WithEvents cnEdit As Office.CommandBarComboBox
Private WithEvents cnExit As Office.CommandBarComboBox
Private WithEvents obPBar As MSComctlLib.ProgressBar
'Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
'Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
'Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
'Private Declare Function MoveWindow Lib "User32" (ByVal hWnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
'Private Declare Function GetParent Lib "User32" (ByVal hWnd As Long) As Long


Private Sub CommandButton1_Click()
Dim cmBars As Office.CommandBar, cnEdit As Office.CommandBarComboBox, cnExit As Office.CommandBarComboBox, obCtrX As Object, obCtrY As Object
On Error Resume Next: Application.CommandBars(cbName).Delete: On Error GoTo 0
Set cmBars = Application.CommandBars.Add(cbName, msoBarTop, , True)
Set cnEdit = cmBars.Controls.Add(msoControlEdit)
cmBars.Visible = True
Set obCtrX = cmBars.Controls.Add(msoControlActiveX)
obCtrX.BeginGroup = True
obCtrX.Height = 30
obCtrX.Width = 300 'совершенно не реагирует ......!!!!!!!!!!!!
obCtrX.ControlCLSID = "{35053A22-8589-11D1-B16A-00C0F0283628}"
obCtrX.EnsureControl
Set obPBar = obCtrX.QueryControlInterface("{00020400-0000-0000-C000-000000000046}")
obPBar.Orientation = ccOrientationHorizontal
obPBar.Scrolling = ccScrollingSmooth
obPBar.BorderStyle = ccFixedSingle
obPBar.Appearance = cc3D
obPBar.Max = 100
obPBar.Min = 0
obPBar.Value = 35
Set cnExit = cmBars.Controls.Add(msoControlEdit) 'данный обьектом задаю ширину
obPBar - больше ничего не придумал ...!!!!!!!!!!
cnExit.BeginGroup = True
cnExit.Style = msoComboLabel
cnExit.Caption = String(50, " ")
'cnExit.Width = 100 'если задать ширину - полностью блокирует объект
End Sub

Господа - взываю к диалогу !

Ситуация следующая - на панель CommаndBar - вставляю объект ActiveX ProgressBar
Когда идет команда
Set obCtrX = cmBars.Controls.Add(msoControlActiveX)
Ширину и высоту cmBars - распирает НЕМЕРЕНО

Высота в Office 2000 регулируеться (в XP нет)
obCtrX.Height = 30

Ширина совершенно не управляема ????
obCtrX.Width = 300

Пробывал функции API, MoveWindow,SetWindowPos - пробывал
Пробывал регулировать Align через GetProp - результат NULL

Поэтому спрашиваю - может кто подскажет !!!
Спасибо что отозвались !!!

Простите не понял можно кусок кода ....

Благодарен за участие и помощь
Если интересно см.http://]http://www.sql.ru/forum/actualthread.aspx?tid=398029

Еще раз спасибо...!!!

http://]http://www.sql.ru/forum/actualthread.aspx?tid=398029

а http://www.sql.ru/forum/actualthread.aspx?tid=398029