Excel女士的弹出图片

Question

你们中的一些人，正在阅读这篇文章，可能会发现这个问题非常简单，但这是一个特定的用例问题，随机出现在我的脑海中，无法找到解决方案并不适合我。

话虽如此，这就是问题所在：

1. 我想在excel表中输入图像。特别是在一个单元格中 - 作为数据。 如果可以的话，我们非常感谢您提供有用的链接或正确方向的推动。
2. 这是它的一般要点。我只想在单元格中存储图片（它们也可以链接到单元格;但它们必须在本地可用且可离线使用）。

  

解决那些有问题的解决方案的问题：   

- （1）的问题是图片不像在某些在线工作表中那样位于excel的单元格内。我还没有找到一个，我想听听替代方案和/或你的经历。   

- （2）的问题在于它是一个多步骤的解决方案。我偶然发现了一个解决方案但似乎无法进一步减少步骤。 I found this video where it shows it is possible by adding pictures as comments。但是，我知道没有捷径可以做到这一点。是否可以创建一个？或者它本身存在吗？

好奇的补充信息：具体用途是什么？

• 没什么。我观看了很多节目，我想要一种方法来追踪它们。 MAL没有节目列表。太糟糕了。所以我决定让事情离线以寻找解决方案，并追踪即将来临的季节。

  

欢迎任何替代方案。（如果不是很明显，我指的是基于宏的解决方案。但是，我希望尽可能避免使用它并保持简单;但如果它无法帮助 - 哦，好吧。）

Answer 1

这就是我所做的：

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工作表中。我想你可以改变一下，将图片存储在特定的单元格中。

我已将此子分配到按钮中以完成工作。如果我发现任何其他相关信息，我会用更多信息更新我的答案。

修改

确定。所以这里有更多关于此的信息以及我所做的事情：

首先，您可以在这里找到有关vba函数OLEObjects.Add的更多信息： https://msdn.microsoft.com/en-us/library/office/ff195728.aspx

据我所知，您可以添加几乎任何所需的文件，您可以选择将其添加到工作表中的位置（也是尺寸）（检查顶部，左侧，宽度参数）

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

上传照片时表单中的结果：