Ms.Excel中的弹出图像

你们中的一些人，正在阅读这篇文章，可能会发现这个问题很琐碎，但这是一个特定的用例问题，随机出现在我的脑海中，无法找到解决方案是我不满意的

话虽如此，问题是：

我想在excel表格中输入图像。在单元格中，尤其是作为数据。如果这是可能的，一个有用的链接或在正确的方向推动是值得赞赏的

这是它的总要旨。我只想要单元格中的图片（它们也可以链接到单元格；但它们必须在本地可用，并且可以脱机使用）

用这些有问题的解决方案解决问题：

-第（1）项的问题是，excel中的图片不像某些在线工作表中的图片那样位于单元格内。我还没有找到，我想听听其他选择和/或你的经历。

（2）的问题在于它是一个多步骤解决方案。我偶然发现了一个解决方案，但似乎无法进一步减少步骤。然而，我知道没有捷径可以做到这一点。有可能创建一个吗？或者它是天生存在的

好奇者的补充信息：特殊用途是什么

• 没什么。我看了很多节目，我想找到一个追踪他们的方法。没有节目列表。太糟糕了。所以我决定保持离线状态，寻找解决方案，并跟踪即将到来的赛季

欢迎任何替代方案。（如果不明显，我指的是基于宏的解决方案。但是，我希望尽可能避免使用它，并保持简单；但是如果没有帮助，那就好了。）

---

以下是我所做的：

Private Sub photo1_Click()
    Dim ftopen As Variant

    'get file name from open file dialog box.
    ftopen = Application.GetOpenFilename(Title:="Choose file to attach")

    'if no file chosen then close sub
    If ftopen = False Then
        MsgBox ("No file selected!!!")
        Exit Sub
    End If

    'insert file into sheet.
    Worksheets(3).OLEObjects.Add Filename:=ftopen, Link:=False, _
         DisplayAsIcon:=True, IconIndex:=0, IconLabel:="Photo1"   
End Sub

这会将图片作为文件添加到excel工作表中。我想你可以稍微改变一下，将图片存储在一个特定的单元格中

我已将此子节点分配到一个按钮中以执行此工作。如果我发现关于这方面的任何其他信息，我将更新我的答案，并提供更多信息

编辑：

嗯。以下是关于这方面以及我所做工作的更多信息：

Private Sub photo1_Click()
    Dim ftopen As Variant

    'get file name from open file dialog box.
    ftopen = Application.GetOpenFilename(Title:="Choose file to attach")

    'if no file chosen then close sub
    If ftopen = False Then
        MsgBox ("No file selected!!!")
        Exit Sub
    End If

    'insert file into sheet.
    Worksheets(3).OLEObjects.Add Filename:=ftopen, Link:=False, _
         DisplayAsIcon:=True, IconIndex:=0, IconLabel:="Photo1"   
End Sub

首先，您可以在此处找到有关vba函数对象的更多信息。添加：

据我所知，您几乎可以添加任何需要的文件，并且可以选择在图纸中添加文件的位置（也可以选择大小）（选中顶部、左侧和宽度参数）

其次，这是我用这个得到的结果的一些图片： 带有标签作为计数器的“我的”按钮（在添加照片时递增）

以及上传照片时表格中的结果：

---

以下是我所做的：

Private Sub photo1_Click()
    Dim ftopen As Variant

    'get file name from open file dialog box.
    ftopen = Application.GetOpenFilename(Title:="Choose file to attach")

    'if no file chosen then close sub
    If ftopen = False Then
        MsgBox ("No file selected!!!")
        Exit Sub
    End If

    'insert file into sheet.
    Worksheets(3).OLEObjects.Add Filename:=ftopen, Link:=False, _
         DisplayAsIcon:=True, IconIndex:=0, IconLabel:="Photo1"   
End Sub

这会将图片作为文件添加到excel工作表中。我想你可以稍微改变一下，将图片存储在一个特定的单元格中

我已将此子节点分配到一个按钮中以执行此工作。如果我发现关于这方面的任何其他信息，我将更新我的答案，并提供更多信息

编辑：

嗯。以下是关于这方面以及我所做工作的更多信息：

Private Sub photo1_Click()
    Dim ftopen As Variant

    'get file name from open file dialog box.
    ftopen = Application.GetOpenFilename(Title:="Choose file to attach")

    'if no file chosen then close sub
    If ftopen = False Then
        MsgBox ("No file selected!!!")
        Exit Sub
    End If

    'insert file into sheet.
    Worksheets(3).OLEObjects.Add Filename:=ftopen, Link:=False, _
         DisplayAsIcon:=True, IconIndex:=0, IconLabel:="Photo1"   
End Sub

首先，您可以在此处找到有关vba函数对象的更多信息。添加：

据我所知，您几乎可以添加任何需要的文件，并且可以选择在图纸中添加文件的位置（也可以选择大小）（选中顶部、左侧和宽度参数）

其次，这是我用这个得到的结果的一些图片： 带有标签作为计数器的“我的”按钮（在添加照片时递增）

以及上传照片时表格中的结果：

---

这个问题很有趣，但它可能属于超级用户，而不是这里（）我想我已经做过类似的事情了。我确信我已经将图片作为文件附在了一张纸上，但我不知道是否可以使用特定的单元格。我会找到我的vba代码，并将其作为一个答案发布在这里，但很可能您必须对其进行一点修改。有趣的问题，但它可能属于超级用户，而不是这里（）我想我已经做了类似的事情。我确信我已经将图片作为文件附在了一张纸上，但我不知道是否可以使用特定的单元格。我会找到我的vba代码，并将其作为答案发布在这里，但很可能您将不得不对其进行一点修改。