为何通过VBA代码修改的word图片亮度和手动修改后的并不一致

天云尊者

详情如图，第一链接为VBA修改，第二链接为手动修改，参数一致。
https://pan.baidu.com/s/14HR8pRUkBVqyct_Q6RTmzg（VBA执行的亮度）
https://pan.baidu.com/s/1C8PfPRgwpuOWjlbcA5S3Wg（手动修改的亮度）】
两者清晰度均调整为100后，差异如图。

Takitooru

打包一下项目传上来吧，方便调试

天云尊者

Takitooru 发表于 2024-1-25 18:53
打包一下项目传上来吧，方便调试

上一个帖子里的，麻烦大佬看看：https://www.52pojie.cn/forum.php?mod=viewthread&tid=1880404

衣征尘

你调整一下大佬写的命令的最后几行的顺序，先应用模糊效果并设置模糊程度，再调整亮度和对比度，试试
For Each shp In selectedShapes
        ' 应用模糊效果并设置模糊程度
        shp.Fill.PictureEffects.Insert(msoEffectSharpenSoften).EffectParameters(1).Value = Blur
        ' 调整亮度
        shp.Fill.PictureEffects.Insert(msoEffectBrightnessContrast).EffectParameters(1).Value = Brightness
        ' 调整对比度
        shp.Fill.PictureEffects.Insert(msoEffectBrightnessContrast).EffectParameters(2).Value = Contrast

天云尊者

衣征尘 发表于 2024-1-26 16:27
你调整一下大佬写的命令的最后几行的顺序，先应用模糊效果并设置模糊程度，再调整亮度和对比度，试试
For ...

这个我自己改过，单独把亮度代码拆出来设置也一样，还是和手动输入的亮度有区别

天云尊者

顶顶顶顶顶顶顶

jyjjf

你拿其他软件设置亮度对比一下，看看是不是也不一样，如果不一样，说明软件对亮度的设置有差异，具体就要看各自的感官了

rq1338

提供一点想法供参考：两种调整是不同的参数。我先看了vba，命令里默认是0.5也就是50%，他的调整条的极限到1即100%。所以这之中的调节空间是1-0.5=0.5。这仅仅是新版软件里的调整数字的一半，我发现从右侧边栏调节条是可以到100%的。由此可以认为vba中参数PictureFormat.brightness修改，不是对应的侧边栏中的选项



这是第一张图，我直接把文件拖进word的，也可以理解成插入图片的方式得到。值得注意的一点是，插入的图片被定义成了形状，是没有右侧边栏调节的。后面用第一张图复制得到第二张图，才有了右侧边栏里的设置图片格式。

https://img03.sogoucdn.com/app/a/100520146/9effd8fd3f31b4a49ad61713e9360234
不做任何调整的第二张图，在word中右键重新保存过与原图进行对比，大小就已经有了变化，我认为word对从中创造的图片自动进行了压缩处理，没有任何选项中体现，见图三的对比

https://img04.sogoucdn.com/app/a/100520146/4c6adbf472a763ad7f5092d86af36547

rq1338

换了个图床

图1


图2


图3

rq1338

后面测试下来重现了lz的问题，不能认为新旧两种“设置图片格式”选项中的对比度、亮度这两种参数等同，显然是不同算法对图片修改，而且不是单纯乘以二的的关系