今天是个好日子。我正在为 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)
但是没有任何东西被插入。