文章插图
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 。

• 贝吉塔和布尔玛什么时候在一起的 贝吉塔和布尔玛什么时候在一起的老的视频
• 大数据时代的核心是什么 大数据时代前一个时代是什么
• 泰州青少年打新冠疫苗需要提交什么材料 泰州12-17岁新冠疫苗什么时候打
• 证照分离是什么意思 建筑业证照分离是什么意思
• 崩坏3怎么在电脑不借助手机登录渠道服 崩坏3为什么不能用手机登录
• 衍生品是什么意思啊 衍生品是什么意思啊网络用语
• 上梁需要准备什么东西 上梁的时候都需要什么
• 身体有体味是什么原因 身体有体味是什么原因造成的
• 什么叫天然气闪爆 煤气罐闪爆是什么意思
• 青团为什么会变硬 为什么做的青团很硬