批量转图和批量导出图片插件 GMS 插件
欢迎使用批量转图和批量导出图片插件!
批量转图源@filon , 由蘭雅增强功能
本插件已经集成在 Lanya Corelvba Plug-In For Coreldraw X4-2023 开源免费插件中
可能知道的人和去使用的人不多，应群里网友所求，单独提取分享
蘭雅 VBA 代码分享
本帖最后由 landboy 于 2024-6-22 10:11 编辑
魔星星 发表于 2024-6-22 09:54
测了下 转位图正常， 填写地址保存不了, 不填地址正常保存
地址不用填的，自动获取当前文件路径，当然也可以选择的
文本框，是得到 文件 基本名，当然你也可以改文件名 前缀
TextBox1.text = Left(ActiveDocument.FileName, InStrRev(ActiveDocument.FileName, ".") - 1)
Dim path$: path = CorelScriptTools.GetFolder(d.FilePath)
' 导出图片 JPEG格式
f = path & "\" & TextBox1.text & "_ID" & sh.StaticID & ".jpg"
d.Export f, cdrJPEG, cdrSelection, opt
代码片段: 使用 left 函数，得到 文件基本名。
使用 GetFolder 去获取文件的目录，括号里是 CDR文件的路径，这样 可以自选路径，按回车就是原路径
字符串变量f 用来组合 导出的文件名，因为考虑到批量导出，所以使用了 StaticID用来做后缀，避免重复和覆盖
代码优点: 简洁 易用，方便扩充修改，适合新手学习
为什么免费教别人学东西，别人反而很不领情，还很看那个教的人不顺眼？没有一点诚意。为什么会有这种现象？
以下引用: 清乾散人 来源：知乎
第一方面是兴趣问题，不是每个人都对别人的课程感兴趣，比如说让学文科的人听大学物理，或者让学理科的人讲文艺哲学，那肯定会出问题。因此，要让感兴趣的人充分得到学习。
第二方面是免费的课程往往不会珍惜，不珍惜这些知识，没有意识到这是金山，所以肯定不会学习。我们之所以觉得好，是因为我们在研究这方面，而研究这方面的人总是会将自己的学科进行夸大作用。
第三方面也的确是我讲得不够好，毕竟我讲到理论输出的时候，我的确是明白了，但是对方未必明白，而对方明不明白我也不知道，甚至也有很多人玩手机。其实主要还是以活动为主，以兴趣入手，这方面搞定后再学理论。
因此我总结了一下，要想让我讲课，你必须抱着对我尊重的心态，一般情况下需要收学费以示诚意，如果情况特殊，你也得让我感受到诚意，否则我一句话都不会说，因为那样不但吃力不讨好，反而还要落下骂名。毕竟我来讲课的初心是好的，但因此遭到骂名我第一个不服。过去我每天早上六点起来学到晚上睡觉，那样年复一年辛苦得来的知识，可不是肤浅的知识。
本帖最后由 魔星星 于 2024-6-22 09:59 编辑
测了下 转位图正常， 填写地址保存不了, 不填地址正常保存 大佬，怎么安装啊，我完全不懂CDR脚本，哈;P 测试了，有两个问题，1保存的JPG名称不是文件原来的名称。2要群组后才导出整个文件的图片，能否不用群组就全部内容一整个图片导出？ turh123 发表于 2024-6-22 14:03
测试了，有两个问题，1保存的JPG名称不是文件原来的名称。2要群组后才导出整个文件的图片，能否不用群组就 ...
你自己改就可以了，或者出红包让人改。
因为这个就是批量 使用的，当然要后缀区分呀
你全选，群组一下就可以了
字符串变量f 用来组合 导出的文件名，因为考虑到批量导出，所以使用了 StaticID用来做后缀，避免重复和覆盖
页:
[1]