Страницы: 1
RSS
Скрытие объектов ActiveX находящихся на строке листа
 
Добрый день, возможно ли произвести скрытие объектов ActiveX, находящихся на строке листа или в определенном диапазоне ячеек?

Для скрытия всех объектов на листе я использую следующий макрос:
Код
Sub VisiblityFalse()
Dim myOLEobject As OLEObject

  For Each NeedtoHiddenOLEobject In ThisWorkbook.ActiveSheet.OLEObjects
    If NeedtoHiddenOLEobject .Name Like "ComboBox*" Then myOLEobject.Visible = False
  Next
End Sub

Возможно ли производить такие действия не по всему листу, а по определенному диапазону строк или ячеек на листе, где необходимые к скрытию объекты расположены?
 
Код
Sub HiddenOLE()
Dim x As OLEObject
    For Each x In ActiveSheet.OLEObjects
     If Not Intersect(x.TopLeftCell, Range("B3:E13")) Is Nothing Then
        x.Visible = False
     End If
    Next
End SubH
Код оформляйте при помощи кнопки <...>, а не кнопкой спойлера Диапазон подставьте свой.
 
Благодарю.
Страницы: 1
Наверх