有没有什么方法使相册里的照片做成同一规格 一看就知道

   发布日期:2022-09-24 23:24:09     手机:https://m.haocat.cn/wenda/news203253.html    违规举报
核心提示:1、代码:ShapeRangeSet aaa = ActiveSelectionRangeDim a As IntegerDim b As Integera = InputBox(请输入宽度. & Chr(13) & 注:根所你的CDR单位

有没有什么方法使相册里的照片做成同一规格 一看就知道

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。

 
 
本文地址:http://haocat.cn/wenda/news203253.html,转载请注明出处。
 
更多>同类问答经验

推荐图文
推荐问答经验
点击排行
网站首页  |  网站流量  |  联系方式  |  使用协议  |  版权隐私  |  网站地图  |  违规举报  |  SiteMaps  |  BaiDuNews