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。