获取图形下的图片颜色

风雨相随3

如何用VBA获取这五个形状（圆，三角形，四边形，五边形和心形）
所框住下面的图片颜色。
圆下面是蓝色，三角形下面是绿色，四边形是黄色，心形是红色，五边形是橙色。
返回色代号也行。 获取图形下的图片颜色.rar (14.67 KB, 下载次数: 19)

2024-5-9 18:14 上传

点击文件名下载附件

user湫

这可是一张图片？？？？怎么可以通过VBA弄出来 想不出来方法

perfect131

user湫 发表于 2024-5-9 18:40
这可是一张图片？？？？怎么可以通过VBA弄出来 想不出来方法

有什么不可
vba 无所不能


思路
获取所有shapes的top 位置 用于判断是否在图片内部

然后获取 图片shapes的字节 然后利用位置关系 获取argb即可

风雨相随3

perfect131 发表于 2024-5-9 20:04
有什么不可
vba 无所不能

Sub GetBitmapColor()
    Dim s As Shape, bm As Bitmap
    Dim bmpColor As structCOLORREF AtPt As structPOINT
    For Each s In ActiveSelection.Shapes
        If s.Type = cdrBitmapShape Then
            Set bm = s.Bitmap
            AtPt.x = bm.SizeWidth / 2
            AtPt.y = bm.SizeHeight / 2
            bmpColor = bm.ColorAt(AtPt)
            MsgBox "The color of the bitmap under shape " & s.Name & " at the center is: " & RGB(bmpColor.nRed, bmpColor.nGreen, bmpColor.nBlue)
        End If
    Next s
End Sub
这样吗，但运行出错。

perfect131

风雨相随3 发表于 2024-5-9 22:06
Sub GetBitmapColor()
    Dim s As Shape, bm As Bitmap
    Dim bmpColor As structCOLORREF AtPt As ...

ai写的吧 这都是它乱编造的

参考 shapes 获取字节数组的方法
https://club.excelhome.net/forum ... amp;_dsign=9e1ced12

风雨相随3

perfect131 发表于 2024-5-10 18:11
ai写的吧 这都是它乱编造的

参考 shapes 获取字节数组的方法

获取图形下的图片颜色.rar (26.71 KB, 下载次数: 5)

2024-5-10 18:22 上传

点击文件名下载附件

没效果啊！

perfect131

风雨相随3 发表于 2024-5-10 18:22
没效果啊！

???
是用到这段代码 不是用这个代码就能解决你的问题

风雨相随3

perfect131 发表于 2024-5-10 18:29
???
是用到这段代码 不是用这个代码就能解决你的问题

这代码是生成图形，而我要获取的是图形下一层图片上的颜色。老师真的像看到代码是用AI写的一样。

风雨相随3

perfect131 发表于 2024-5-10 18:29
???
是用到这段代码 不是用这个代码就能解决你的问题

If s.Type = cdrBitmapShape Then
            Set bm = s.Bitmap
            AtPt.x = bm.SizeWidth / 2
            AtPt.y = bm.SizeHeight / 2
            bmpColor = bm.ColorAt(AtPt)

风雨相随3

perfect131 发表于 2024-5-10 18:29
???
是用到这段代码 不是用这个代码就能解决你的问题

需要解决问题？是用到这段代码 不是用这个代码就能解决你的问题