ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: aman1516

[求助] 能否用VBA实现对两图进行布尔运算

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-8-23 20:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
12,13楼
https://club.excelhome.net/forum ... 32&pid=11211513
不过用的 2016

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-23 21:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
morpheus126 发表于 2023-8-23 12:42
有没有一种可能,PPT2007还没有布尔运算~

应该是的,版本问题

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-8-23 21:36 | 显示全部楼层
perfect131 发表于 2023-8-23 20:30
12,13楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1656932&pid=11211513
...

学习了,不过得打版本测试

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-29 21:24 | 显示全部楼层
“回头再看  微微灯光  无止境  寂寥不安 .....”
没想到一年了,还是没的能升级我的Office版本到2013以上 ....
但近期在接触学习到图像的数字化(特效、滤镜)处理、像素级处理相关知识时,又偶然的想起了这个贴子,
高版本PPT举手之劳就能实现的各种图形图片的布尔运算,归根也是“封装”好的图像处理算法罢了,
那么,是否也能用类似“图像特效”(数字图像)处理、像素处理等方法,在底层实现本贴的布尔运算效果呢?
(同时也想了解一下,实现图形图片布尔运算的底层逻辑是什么)

TA的精华主题

TA的得分主题

发表于 2024-8-30 10:54 | 显示全部楼层
aman1516 发表于 2024-8-29 21:24
“回头再看  微微灯光  无止境  寂寥不安 .....”
没想到一年了,还是没的能升级我的Office版本到2013以 ...

个人感觉,单纯从用户层面的理解,是集合运算
并集、交集。。。
当然算法层面的,我就没能力讨论了。。。
但是大哥您换一个语言来研究这个课题不是更能舒展拳脚吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-8-30 19:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
用户瑞很多语言应都能实现,但最终要在Office中应用的话,还要额外增加接口,
底层算法,感觉基本就是纯数学了,与语言(表达方式)无关

TA的精华主题

TA的得分主题

发表于 2024-10-18 20:19 | 显示全部楼层
shenjianrong163 发表于 2023-8-23 07:54
下面代码在高版本Office和WPS中都通过,你试下2007能用吗?

老师你好!
在PPT里能用,为何在WPS Word里不能用?.MergeShapes msoMergeCombine, oSP,有问题,对象不支持该属性或方法。
Sub 图形布尔计算组合()
    Set mydoc = ActiveDocument
    Set shp1 = mydoc.Shapes.AddShape(msoShapeOval, 200, 100, 100, 100) '1插入第1个圆
    Set shp2 = mydoc.Shapes.AddShape(msoShapeOval, 250, 100, 100, 100) '2插入第2个圆
        
    shp1.Fill.Transparency = 0#
    shp1.Fill.Patterned msoPatternDarkDownwardDiagonal
    shp2.Fill.Transparency = 0#
    shp2.Fill.Patterned msoPatternDarkDownwardDiagonal
   
    With mydoc
        Set oSP = shp1
        Set oSPR = .Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition))
        With oSPR
            .MergeShapes msoMergeCombine, oSP
        End With
    End With
End Sub
麻烦老师。

TA的精华主题

TA的得分主题

发表于 2024-10-20 13:55 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
dongdonggege 发表于 2024-10-18 20:19
老师你好!
在PPT里能用,为何在WPS Word里不能用?.MergeShapes msoMergeCombine, oSP,有问题,对象不 ...

WPS还是OFFICE
打开Word对象浏览器
输入MergeShapes查找一下
如果是支持会显示出来

TA的精华主题

TA的得分主题

发表于 2024-10-20 13:58 来自手机 | 显示全部楼层
aman1516 发表于 2024-8-30 19:39
用户瑞很多语言应都能实现,但最终要在Office中应用的话,还要额外增加接口,
底层算法,感觉基本就是纯数 ...

https://learn.microsoft.com/zh-cn/windows/win32/gdi/combining-regions

TA的精华主题

TA的得分主题

发表于 2024-10-21 07:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
利用wia读取像素点信息,然后根据两图位置对应关系进行像素点的各种运算应该还是可以完成的,只是效率可能是个大问题
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-1 09:24 , Processed in 0.032099 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表