Картинка в примечании по нажатию Кнопки

[uralshans]

Доброго времени суток всем!
Прошу помочь, так как в программировании не силен, только по примерам могу разобраться маленько.

Суть дела: нажал на кнопку и в ячейке появилось примечание с фото (картинкой)

---

Просто вставить (вручную) фото в примечание - могу / но хочется сделать это программно. Помогите пожалуйста.

Пример прилагается.

[staniiislav]

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

Доброго времени суток всем!
Прошу помочь, так как в программировании не силен, только по примерам могу разобраться маленько.

Суть дела: нажал на кнопку и в ячейке появилось примечание с фото (картинкой)

---

Просто вставить (вручную) фото в примечание - могу / но хочется сделать это программно. Помогите пожалуйста.

Пример прилагается.

Пример:
http://www.planetaexcel.ru/techniques/9/128/

В нагрузку:
http://excelvba.ru/search/node/%D0%B...BD%D0%B8%D0%B5

[slan]

попробуйте такой код :

Private Sub CommandButton1_Click()
On Error Resume Next
[b5].ClearComments
With Range("B5").AddComment
    Range("B5").Comment.Visible = False
    Range("B5").Comment.Text Text:="Александр:" & Chr(10) & ""
    .ShapeRange.Fill.Visible = msoTrue
    .ShapeRange.Fill.UserPicture "Koala"
    .ShapeRange.ScaleWidth 1.2, msoFalse, msoScaleFromTopLeft
    .ShapeRange.ScaleHeight 1.65, msoFalse, msoScaleFromTopLeft
    .ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromTopLeft
    .ShapeRange.ScaleHeight 1.09, msoFalse, msoScaleFromTopLeft
End With
End Sub

только путь к рисунку надо указать полный, и в дальнейшем ячейку для вставки примечания выбирать , например, как активную или другим образом. или вам надо только в b5 ?