Я хочу прикрепить комментарий к изображению в ячейку в Excel, используя vba, чтобы соотношение сторон комментария совпадало с размерами изображения. следующий код VBA работает, но есть проблема.
Sub setPic(ran As Range, URL As String)
Dim CommentBox As Comment
Set CommentBox = ran.AddComment
'Remove Any Default Comment Text
CommentBox.Text Text:=""
'Insert The Image and Resize
CommentBox.Shape.Fill.UserPicture (URL)
'not like this:
'CommentBox.Shape.ScaleHeight 6, msoFalse, msoScaleFormTopLeft
'CommentBox.Shape.ScaleWidth 4.8, msoFalse, msoScaleFromTopLeft
End Sub
После того, как я установил комментарий к картинке
Я пробовал вручную: «щелкнуть правой кнопкой мыши на ячейке»> изменить комментарий> «щелкнуть правой кнопкой мыши на границе поля комментария»> отформатировать комментарий> вкладка «Цвета и линии»> цвет> эффекты заливки> изображение> проверить соотношение сторон блокировки изображения
нажмите ОК, нажмите ОК
затем снова в формате комментария:
..> форматировать комментарий> вкладка размера> нажать «Сброс»
нажмите ок
это работает, но я хочу код VBA.