当前位置: 首页 经验资讯 生活经验 有没有什么方法使相册里的照片做成同一规格

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

更新时间:2021-03-13 12:37:09

  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。

关键词: 没有 什么 方法 相册 照片 做成 同一 规格

实用工具