0

Всем доброго дня. Пишу скрипт для CATIA, который формирует табличку в Ecxel. В нем хочу вставлять картинку в ячейку. При помощи этого кода у меня получилось это сделать:

With xlApp.ActiveSheet.Pictures.Insert(LogoPath)
  .Left = xlApp.ActiveSheet.Range("B1").Left
  .Top = xlApp.ActiveSheet.Range("B1").Top
  .Placement = 3
  .PrintObject = True
End With

Но данный код вставляет картинку ссылкой. И если сохранить файл Excel и отправить кому-то, то она не откроется. Поэтому я попробовал данный код:

Call xlApp.ActiveSheet.Shapes.AddPicture(LogoPath, msoCFalse, msoCTrue, 100, 100, 100, 100)

Но ничего не вставляется.

1 ответ 1

1

На VBA так:

Sub InsertPictures()
    Dim sPath As String, sName As String
    Dim r As Range, oPic As Object

    sPath = "C:\pictures\" ' путь к каталогу '
    sName = "new.png" ' имя картинки '
    Set r = Cells(1, 1) ' диапазон вставки '

    On Error Resume Next ' обход ошибки, если картинки нет ' 
    Set oPic = ActiveSheet.Shapes.AddPicture(sPath & sName, 0, 1, r.Left + 2, r.Top + 2, r.Width - 4, r.Height - 4) ' вот она, красавица '
    Set r = Nothing: Set oPic = Nothing ' чистим память ' 
End Sub

Или с выносом параметров (вместо строки Set oPic...):

With ActiveSheet.Shapes.AddPicture(sPath & sName, 0, 1, 0, 0, 0, 0)
    .Left = r.Left + 2
    .Top = r.Top + 2
    .Width = r.Width - 4
    .Height = r.Height - 4
End With
3
  • Попробовал Ваш код. Так же. Ничего не вставляется. Не понятно почему один код работает, а второй нет. Причем никаких ошибок не выдает. 15 апр 2020 в 9:12
  • Все, получилось. Нужно было внимательнее вставлять Ваш код. Спасибо! 15 апр 2020 в 9:35
  • 1
    Причем никаких ошибок не выдает - для поиска ошибок нужно отключать (комментировать) On Error Resume Next 15 апр 2020 в 10:37

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.