PictureBox в VBA

[uhm]

Можно ли на форму в VBA (конкретно, в Экселе), вставить не Image, а PictureBox? Если да, то как?

[Vitaly1]

Можно через правую клавишу на панели элементов взять из дополнительных элементов, если конечно он там имеется.

[uhm]

До этого места я уже дошел Нет его в списке Additional Controls. У меня стоит VB6, может быть, можно его как-то оттуда взять?

[GSerg]

Напиши activex на vb6. Кинь на него picturebox и замапь все проперти picturebox на проперти usercontrol. Потом скомпилируй и подключай к экселю...

[uhm]

...простое и очевидное для всех, кроме вас...

Спасибо, это, похоже, действительно решение, но я раньше никогда в жизни не делал ActiveX-контролы. Собственно, я попробовал - сделать контрол у меня получилось, а вот "замапить" properties...

Если не сложно - объясни, как это делать, или кинь ссылочку.

[GSerg]

Ну вот есть у пикчербокса проперть backcolor... Значит делай у юзерконтрола проперть backcolor, в которой пиши:

Код: Выделить всё

property get BackColor as long
backcolor=picture1.backcolor
end property
property let BackColor(byval c as long)
picture1.backcolor=c
end property


И так для каждой...

[uhm]

Большое спасибо!
Буду разбираться...

[tyomitch]

Ещё GSerg не упомянул, что аддин ActiveX Control Interface Wizard (Add-Ins -> Add-In Manager) позволяет мапить свойства автоматически, без написания кода самому.

[uhm]

Спасибо, удобная штука.