У меня есть код, который вставляет картинки в рабочую книгу. Цель рисунков - добавить подписи в рабочую книгу с помощью встроенной надстройки.
Этот код для фотографий иногда не работает.
Каждый пользователь имеет изображения, сохраненные на его компьютере в том же месте. Это мой код:
Dim ws As Worksheet
Set ws = ActiveSheet
imagePath = "C:\Users\" & Environ("UserName") & "\AppData\Roaming\Microsoft\AddIns\Ticks\B1.png"
imgLeft = ActiveCell.Left
imgTop = ActiveCell.Top
ws.Shapes.AddPicture _
Filename:=imagePath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=imgLeft, _
Top:=imgTop, _
Width:=12.15, _
Height:=12.15
ActiveCell.Offset(1, 0).Select
Иногда я получаю , неспособный получить свойство вставки для класса изображения , и я не знаю почему. Фотографии там, и имена все правильные.
Выдает ошибку только в определенных документах, поэтому я думаю, что есть настройка, которую можно изменить. В остальное время это работает отлично, и 7 человек, которые регулярно его используют, очень редко сообщают о проблеме. Я думал, что это было только на старых файлах XLS (это было, где это сломалось наиболее часто), но это случается и на файлах XLSX.