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 。
以上就是有没有什么方法使相册里的照片做成同一规格的内容啦,希望本文可以帮到你!
- 什么是得房率 得房率在多少比较合适
- 三峡被称为什么的美称
- 为什么要对21支棉纱进行精梳
- 黑扇贝是什么梗
- 角通常用什么符号表示
- 健康码为什么无缘无故变黄 健康码变黄后如何就医
- qq聊天记录可以恢复吗 有什么办法呢
- consist硬盘分区什么意思
- 什么是饱和脂肪和反式脂肪
- 降准有什么影响