VBA获取单元格中的图片

小NN

之前写的VBA程序，可以获取相应单元格的值，若想获取相应单元里贴的图片，如何修改？
获取单元格值的语句如下：

TargetSheet.Range("BN35").Value = SourceSheet.Cells(RowIndex, "K").Value

vitrel

首先，我非高手，对这方面的了解我也只算是皮毛，
既然（暂时）没人发表意见，那我来发表一下我的个人看法，不一定正确，如有误，望指正。

第一点，关于楼主所说的“单元格中的图片”这一词并不准确，
单元格是包含有值、以及各种种样的格式设置，但并不包含图片，
也就是说，我们看到的图片，并不属于某个单元格，图片是浮动在单元格之上的，
我们平常要确定（找到）一个图片，要么在插入图片时给它人为地命名，
例如“图片001”、“图片ABC”，当需要“用”它时，就用名字找它，
如果不知道它的名字，那就只能从位置找它，
例如遍历工作表中的所有图片，找出左边界在B3单元格的左边界之右、上边界在B3单元格顶边界之下……的那张图，
就是用单元格的边界和图片边界之间的关系来找到自己想找的那张图。

第二点，楼主原问题中的“获取”二字有问题，
图片找到以后，下一步呢？图片是无法获取的，
我们一般找到该图片后，有多种处理方法，
常用的有：把该图片保存为不同格式的图像文件、改变尺寸、旋转图片、把图片移动到别的位置、删除掉等等，
因为不能理解楼主所说的“获取”具体是何意，所以很难提供相应的代码。

最后，对于这类问题，最好由楼主提供实例文件，
然后告诉我们，找到某某图片后，具体要如何操作，
这样的话，解答起来就方便很多。

小NN

vitrel 发表于 2024-3-14 13:58
首先，我非高手，对这方面的了解我也只算是皮毛，
既然（暂时）没人发表意见，那我来发表一下我的个人看法 ...

我的意思是：
我希望把一个表单一维表的数据分别写在不同的SHEET中，目前我已经会把值写到我要求的表单单元格中，但假如不是值，而是图片，那么应该怎么写？
可以把图片命名好，放在某个文件夹，按名称获取后，填入指定的一个单元格中，比如将：/文件夹/T1.JPG 填入A1单元格里。

最好在此语句中修改：
argetSheet.Range("BN35").Value = SourceSheet.Cells(RowIndex, "K").Value

gwjkkkkk

二楼正解。。。

gwjkkkkk

写了一个自定义函数，可以获取某一单元格内的图片名称，并形成一个一维数组。。。
Function hasPic(Rng As Range) As String()
    Dim shp As Shape, ar$(), r&
    For Each shp In Rng.Parent.Shapes
        If shp.Type = msoPicture Then
            If Abs((shp.Left + shp.Width / 2) - (Rng.Left + Rng.Width / 2)) < (shp.Width + Rng.Width) / 2 And _
               Abs((shp.Top + shp.Height / 2) - (Rng.Top + Rng.Height / 2)) < (shp.Height + Rng.Height) / 2 Then
               r = r + 1
               ReDim Preserve ar(1 To r)
               ar(r) = shp.Name
            End If
        End If
    Next
    hasPic = ar
End Function

vitrel

小NN 发表于 2024-3-14 16:05
我的意思是：
我希望把一个表单一维表的数据分别写在不同的SHEET中，目前我已经会把值写到我要求的表单 ...

楼主，既然你无法提供实例的话，
我只能提供基础的代码，内有详细说明：

1. argetSheet.Range("BN35").Select  '先选定一个单元格，作为插入图片的位置依据
   
2. ActiveSheet.Shapes.AddPicture "D:\文件夹\T1.JPG", False, True, Selection.Left, Selection.Top, -1, -1
   
3. '参数说明：
   
4. '   1、必需。图片的路径和文件名
   
5. '   2、必需。True则将图片链接到创建对像的文件；False则将图片作为该文件的独立副本
   
6. '   3、必需。是否将链接的图片与工作簿一起保存
   
7. '   4、必需。Left     图片左边界相对于文档左边界的位置（水平位置），以磅为单位
   
8. '   5、必需。Top      图片上边界相对于文档上边界的位置（垂直位置），以磅为单位
   
9. '   6、可选。Width    图片的宽度，以磅为单位。-1 表示按原尺寸。
   
10. '   7、可选。Height   图片的高度，以磅为单位。-1 表示按原尺寸。

复制代码

补充一句，插入的图片并不属于某个单元格，单元格Cell、Range是没有“图片”这一个属性的，
因此，在用上述代码插入图片后，整张图片是浮在工作表之上，还需使用其它代码，
要么将改变单元格大小以适应图片，要么改变图片大小以适应单元格，有时候还需上下居中、水平居中等，
最终目的就是让插入的图片好像是在单元格内，因为这样才符合我们的使用习惯。

micch

新版本的Excel有嵌入到单元格功能，可以绑定图片和单元格，进行引用。      如果不是嵌入而是浮动在单元格上方的图片，想引用图片需要遍历图片找到哪个图片在单元格上方

vitrel

micch 发表于 2024-3-15 08:16
新版本的Excel有嵌入到单元格功能，可以绑定图片和单元格，进行引用。      如果不是嵌入而是浮动在单元格 ...

多谢提醒。
为了与单位的电脑兼容，我现在用的还是Office 2019，
Excel 2019上暂未发现您所提到的功能，
按您所说，可能要在Excel 2021或以上的版本才能有这个功能了，
如能实现您所说的功能，那确实能方便很多，我也很期待，
再次感谢您的提醒，谢谢！