Image 将文件夹中的徽标插入excel

Image 将文件夹中的徽标插入excel,image,vba,excel,Image,Vba,Excel,我正在寻找一种方法,将文件夹中的图片插入excel中的特定单元格。该文件夹包含数百张图片。我不熟悉excel宏或VBA。代码的工作方式是将图片名称键入一个单元格,结果应该是从该文件夹中提取一个同名图片并将其放入另一个单元格。插入的图片也应调整大小。如果有人能给我一些关于如何做到这一点的指导。谢谢我很抱歉我的英语很差,因为它是我的第二语言 假设您正在工作表的A1单元格中键入图像名称“myImage.jpg”。确保它是带有扩展名的全名。将其放入工作表代码中 Private Sub Worksheet

我正在寻找一种方法,将文件夹中的图片插入excel中的特定单元格。该文件夹包含数百张图片。我不熟悉excel宏或VBA。代码的工作方式是将图片名称键入一个单元格,结果应该是从该文件夹中提取一个同名图片并将其放入另一个单元格。插入的图片也应调整大小。如果有人能给我一些关于如何做到这一点的指导。谢谢我很抱歉我的英语很差,因为它是我的第二语言

假设您正在工作表的A1单元格中键入图像名称“myImage.jpg”。确保它是带有扩展名的全名。将其放入工作表代码中

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim imagePath, fullImagePath, newImageLoc As String

    imagePath = "C:\YourFileLocationPath\" 'set this to where your images are located.
    If Target.Address = "$A$1" Then 'Assumming the cell you are entering your image is in A1 or change to whatever cell you want entering in.
        fullImagePath = imagePath & Target.Value
        newImageLoc = Target.Offset(, 2).Address ' this moves the new image location to the cell you enter your image name two columns to the right.
        'Adjusts image size, change as needed
        With ActiveSheet.Pictures.Insert(fullImagePath)
            With .ShapeRange
                .LockAspectRatio = msoTrue
                .Width = 75
                .Height = 100
            End With
            .Left = ActiveSheet.Range(newImageLoc).Left
            .Top = ActiveSheet.Range(newImageLoc).Top
            .Placement = 1
            .PrintObject = True
        End With
        End
    End If
End Sub

如果您不熟悉VBA,我建议您熟悉。首先阅读基础知识,然后用谷歌搜索你计划中的不同部分,从文件夹中获取图像。嘿,我们遇到了一个问题,即图片的移动量与单元格的长度有关。有没有一种方法可以让图片在excel中通过不同的测量系统移动?比如说英寸?你是什么意思?调整单元格大小时,图片会调整大小?进退两难的是,我的excel模板有各种大小的单元格,我们正试图将图片放置在特定位置,但却遇到了困难。这是因为当前代码逐单元格移动图片,因此如果单元格太长,图片将移动单元格的整个长度。我想知道这是否可以更改,使图像可以直接放置在某个点,而不是由单元格指定。可能想问一个新问题。谢谢您的帮助!