将图像控制框添加到Excel单元格中作为模板

Question

是否可以将图片框添加到Excel单元格中，以便用户可以单击单元格上的框并插入图像而不是单击Excel顶部的添加图片工具？

结果示例： enter image description here

Answer 1

您可以使用此代码：

With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .ButtonName = "Submit"
    .Title = "Select an image file"
    .Filters.Clear
    .Filters.Add "JPG", "*.JPG"
    .Filters.Add "JPEG File Interchange Format", "*.JPEG"
    .Filters.Add "Graphics Interchange Format", "*.GIF"
    .Filters.Add "Portable Network Graphics", "*.PNG"
    .Filters.Add "Tag Image File Format", "*.TIFF"
    .Filters.Add "All Pictures", "*.*"

    If .Show = -1 Then
        Dim img As Object
        Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))

    End If
End With

将代码嵌入到工作表中对象的单击事件中（例如ActiveX / Form）。 请注意：解决方案来自用户Portland Runner：Excel VBA - Insert image (using dialog box) into a certain cell。

毕竟，添加值相当低。您需要将文件另存为.xlsm以保持代码正常工作。