maratino
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые знатоки! Добрый день!
Может кто поможет внести изменения в этом макросе
Макрос вставляет картинку в примечание. Проблема в том, что отображает по тем параметрам, которые указаны в коде. А надо, что бы картинки отображал как она есть (реальный размер)
Не знаю насколько грамотно я сформулировал вопрос
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
.ScaleHeight 3, msoFalse, msoScaleFromTopLeft
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(12).ClearComments
On Error Resume Next
Cells(Target.Row, 12).AddComment.Text Text:=""
Cells(Target.Row, 12).Comment.Shape.Select True
With Cells(Target.Row, 12).Comment.Shape
.Fill.UserPicture Cells(Target.Row, 15).Value ' stolbec, gde ykazivaetsya put k kartinke
.Visible = True
.Fill.Transparency = 0#
.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
.ScaleHeight 3, msoFalse, msoScaleFromTopLeft
End With
End Sub
Макрос очень полезный и нужный |
Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 10:24 12-06-2010 | Исправлено: maratino, 10:27 12-06-2010 |
|
