Excelmacros调整 – 想要在特定点插入图片

此代码通过将图片的名称input到单元格中，从特定文件夹中将图片插入到我的Excel工作表中。 例如，如果我要将a1.jpginput到单元格J4中，则会从该文件夹中将所需的图像输出到位于J4右侧一个空格的单元格中。

我遇到的困境是，我的Excel模板有各种大小的单元格，我试图把图片放在特定的位置，但是很难。 这是因为当前的代码通过单元格移动图片，所以如果单元格太长，图片将被移动整个单元格的长度。 我想知道这是否可以改变，使图像可以直接放置在某一点，而不是由单元格指定。

代码信贷去pokemon_Man

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range) Dim imagePath, fileName, fullImagePath, newImageLoc As String imagePath = "C:\YourFileLocationPath\" If Target.Address = "$J$4" Then fullImagePath = imagePath & Target.Value newImageLoc = Target.Offset(, 1).Address With ActiveSheet.Pictures.Insert(fullImagePath) .Left = ActiveSheet.Range(newImageLoc).Left .Top = ActiveSheet.Range(newImageLoc).Top .Placement = 1 .PrintObject = True End With End End If End Sub 

Answer 1

尝试：

  .Left = Target.Left + Target.Width / 2 .Top = Target.Top + Target.Height / 2