Question

我想将图像插入单元格。下面的代码将其插入到工作表中：

            With wb.Sheets(1).Pictures.Insert("\\bk01fil0001\salesdb$\ImageUpload\NoImage.gif")
            .Left = wb.Sheets(1).Range("B2").Left
            .Top = wb.Sheets(1).Range("B2").Top
            .Width = wb.Sheets(1).Range("B2").Width
            End With

Answer 1

您无法在单元格中插入图片：它们始终位于工作表的“顶部”。您可以做的最好的事情就是将其置于所需的细胞/范围内。

Answer 2

您可以通过选择一个单元格然后插入图片来使事情变得更简单......

Sheets(1).Select
Range("B2").Select
ActiveSheet.Pictures.Insert("\\bk01fil0001\salesdb$\ImageUpload\NoImage.gif")

我认为这不会是一种效率较低的方法，因为您只希望在可见的纸张上插入图片。我不认为你需要多次选择表格，如果有的话

（顺便说一下，听起来好像你试图在一个表的一列中自动插入图像，在这种情况下，我强烈建议使用如Excel Visual Basic video所附文本中所述的单元格表示法<） / p>

Excel 2007从图像路径显示图像？

2 个答案: