有没有什么方法使相册里的照片做成同一规格
更新时间: 2026-02-11 17:57:13
1、代码:ShapeRange
Set aaa = ActiveSelectionRange
Dim a As Integer
Dim b As Integer
a = InputBox(请输入宽度. & Chr(13) & 注:根所你的CDR单位制度会有所不同)
b = InputBox(请输入高度. & Chr(13) & 注:根所你的CDR单位制度会有所不同)
Dim i As Integer
For i = 1 To aaa.Count
aaa(i).SizeWidth = a
aaa(i).SizeHeight = b
Next i
End Sub
2、打VBA编辑器(快捷键ALT+F11),随便打开一个“模块”这个分类 前面的 + 号。双击下面显示出来的那个corelXXXXX (后面的XXXX是一个名字)。把上面的代码粘贴进去,切换到CDR。选中你要设置为同样大小的东西。(这里可以在打开VBA编辑器之前就选中,就可以省去这步),然后切换到VBA编辑器,按F5。
有没有什么方法使相册里的照片做成同一规格 相关文章
- 季度更新欧易入门路径:一步到位,大陆...
- OKX安全设置:完整攻略-国内网络环...
- 欧易入门路径(大陆用户)—保姆级教程...
- OKX充值提现全指南:避坑指南·轻量...
- 移动端优先欧易APP下载:新手必读,...
- 欧易实名认证全指南:新手必读·全路径...
- 长期维护版OKX操作教程:实操手册,...
- OKX操作教程全指南:快速上手·无痛...
- 欧易实名认证全指南:完整攻略·一步一...
- 多设备同步欧易OKX注册:详细图解,...
- 欧易OKX注册(稳定入口)—进阶策略...
- 季度更新欧易APP下载:一步到位,备...
- 欧易账号开通(大陆用户)—一步到位,...
- 欧易入门路径:保姆级教程-国内网络环...
- OKX安全设置:完整攻略-稳定入口-...
- 长期有效OKX新手指南:详细图解,多...
- OKX国内使用:进阶策略-备用域名-...
- 2026最新欧易入门路径:完整攻略,...
- 最新版欧易入门路径:保姆级教程,国内...
- 欧易入门路径全指南:实操手册·零经验...
