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

b = inputbox(请输入高度. & chr(13) & 注：根所你的cdr单位制度会有所不同)切换到cdr。aaa(i).sizehei

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。