Question

我在Excel中创建类似于发票的模板，并希望启用某个单元格（例如B12）来自动打开文件浏览器（从而允许我选择要插入的图像）当我点击所说的细胞。

我想知道这是否可行，如果是的话，我将如何去做。

提前致谢。

PS：我使用的是Mac 2011版的Office。

Answer 1

将以下内容添加到要在其中插入此图像的工作表代码中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo ErrHandler:

    If Not Intersect(Range("B12"), Target) Is Nothing Then
    myPictureName = Application.GetOpenFilename _
    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
    ActiveSheet.Pictures.Insert(myPictureName).Select
    End If

Exit Sub

ErrHandler:
    Resume Next

End Sub

Excel - 如何指定单元格以插入图像

1 个答案: