динамическое добавление контролов

[MrGB]

как динамически добавлять кнопку и обработчик в определенной столбец, чтобы в каждой ячейки была кнопка.

как добавлять я нашел:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=10.5, Top:=113.25, Width:=37.5, Height _
        :=9).Select

тут надо задавать координаты, а мне при нажатии на соответствующую кнопку надо будет брать данные из строки. Следовательно нужно знать номер строки.

Заранее спасибо за помощь

[doober]

Посмотрите мой вариант кнопки- невидимки.
Клик по любой ячейке первого листа

[MrGB]

Сообщение от doober

Посмотрите мой вариант кнопки- невидимки.
Клик по любой ячейке первого листа

интересное решение. Я немного неправильно выразился - один столбец должен содержать видимые кнопки, если справа от него непустая ячейка.

теперь добавил так (положение задано координатами ячейки):

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=Cells(RowNum, 2).Left, Top:=Cells(RowNum, 2).Top, Width:=37.5, Height _
        :=9).Select

Но это не дает возможность получить номер строки при нажатии кнопки(

[doober]

А условие на правую ячейку добавляется элементарно.Да и макрос один на все нажатия кнопки
Я не сторонник такого добавления контролов.Через время ваш файл будет весить тонны.да и контролы надо в коллекции заганять

[MrGB]

Сообщение от doober

А условие на правую ячейку добавляется элементарно.Да и макрос один на все нажатия кнопки
Я не сторонник такого добавления контролов.Через время ваш файл будет весить тонны.да и контролы надо в коллекции заганять

да, насчет веса верно.

возможно тупой вопрос - а как добавить название кнопки в Вашем случае? oShape.TextEffect.Text?

[doober]

Public Sub DisplayIcon(oSheet As Worksheet, lTop As Long, lLeft As Long, lHeight As Long)
 On Error Resume Next

  Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, lLeft - 40, lTop, 40, lHeight)

  oShape.Fill.Transparency = 0.5
  oShape.Fill.Solid
  oShape.Fill.Visible = msoCTrue
  oShape.Line.Weight = 0.25
 oShape.Line.ForeColor.SchemeColor = 8
  oShape.Fill.ForeColor.SchemeColor = 52
  
 oShape.DrawingObject.Font.Color = 255
  
oShape.TextEffect.Text = "Привет из Одессы"
  oShape.Placement = xlFreeFloating
  oShape.OnAction = "Command"

     End Sub

[MrGB]

Сообщение от doober

Public Sub DisplayIcon(oSheet As Worksheet, lTop As Long, lLeft As Long, lHeight As Long)
 On Error Resume Next

  Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, lLeft - 40, lTop, 40, lHeight)

  oShape.Fill.Transparency = 0.5
  oShape.Fill.Solid
  oShape.Fill.Visible = msoCTrue
  oShape.Line.Weight = 0.25
 oShape.Line.ForeColor.SchemeColor = 8
  oShape.Fill.ForeColor.SchemeColor = 52
  
 oShape.DrawingObject.Font.Color = 255
  
oShape.TextEffect.Text = "Привет из Одессы"
  oShape.Placement = xlFreeFloating
  oShape.OnAction = "Command"

     End Sub

спасибо большое! у меня наверно текст с фоном сначала сливался. Вроде так же делал.

[MrGB]

Сообщение от doober

oShape.DrawingObject.Font.Color = 255
oShape.TextEffect.Text = "Привет из Одессы"

в 2007 работает корректно, а вот в 2003 текст не отображается. Может reference надо указать какой-нибудь?

[alex77755]

Вот так можно отобразить в 2003

Public Sub DisplayIcon(oSheet As Worksheet, lTop As Long, lLeft As Long, lHeight As Long)
 On Error Resume Next

  Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, lLeft - 40, lTop, 200, lHeight)

  oShape.Fill.Transparency = 0.5
  oShape.Fill.Solid
  oShape.Fill.Visible = msoCTrue
  oShape.Line.Weight = 0.25
 oShape.Line.ForeColor.SchemeColor = 8
  oShape.Fill.ForeColor.SchemeColor = 52
   oShape.DrawingObject.Font.Color = 255
  oShape.Placement = xlFreeFloating
  oShape.OnAction = "Command"
   oShape.Select
    Selection.Characters.Text = "Привет из Павлограда"
     End Sub

[MrGB]

Сообщение от alex77755

Вот так можно отобразить в 2003

Public Sub DisplayIcon(oSheet As Worksheet, lTop As Long, lLeft As Long, lHeight As Long)
 On Error Resume Next

  Set oShape = oSheet.Shapes.AddShape(msoShapeRectangle, lLeft - 40, lTop, 200, lHeight)

  oShape.Fill.Transparency = 0.5
  oShape.Fill.Solid
  oShape.Fill.Visible = msoCTrue
  oShape.Line.Weight = 0.25
 oShape.Line.ForeColor.SchemeColor = 8
  oShape.Fill.ForeColor.SchemeColor = 52
   oShape.DrawingObject.Font.Color = 255
  oShape.Placement = xlFreeFloating
  oShape.OnAction = "Command"
   oShape.Select
    Selection.Characters.Text = "Привет из Павлограда"
     End Sub

большое спасибо!