vba - Excel 宏调整 - 想要在特定点插入图片

Question

此代码通过在单元格中输入图片的名称，将图片从特定文件夹插入到我的 Excel 工作表中。例如，如果我要在单元格 J4 中输入 a1.jpg，然后我会从文件夹中将所需图像的输出输出到 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