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

　　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。

有没有什么方法使相册里的照片做成同一规格相关文章：

★ 有什么方法使稀硫酸变浓硫酸

★ 相册里的私密照片怎么找

★ 恢复出厂设置相册里的照片还有吗

★ 有没有什么打击感很强的游戏

★ 有什么方法使一张纸长度变长

★ 相册里的视频怎么设置壁纸

★ 什么方法使油炸豆腐圆子变空心

★ 有什么方法可以养肺的

★ 手机相册里的照片误删怎么恢复

★ QQ空间有什么方法删除一个人的全部留言评论