主页 / 问题 / 1110403
Accepted
Nikita Pelevin
Asked:2020-04-15 02:12:51 +0000 UTC2020-04-15 02:12:51 +0000 UTC

使用 VBA 在 Excel 中插入图片

  • 772

今天是个好日子。我正在为 CATIA 编写一个在 Excel 中生成表格的脚本。在其中我想将图像插入到单元格中。使用此代码，我能够做到：

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)

但是没有任何东西被插入。

excel

1 个回答

  1. Best Answer

    在像这样的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

    或删除参数（而不是 line 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
    • 1

相关问题