天气预报15天查询> 生活> 有没有什么方法使相册里的照片做成同一规格

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

更新时间: 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。

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

如有意见、反馈、侵权或投诉等情况,请联系:

电话:
邮箱:

我们将会在48小时内给与处理!

版权所有 Copyright ? 2009-2020 tianqiyubao3.com

页面:/news/view-1594322/ | 耗时:0.5053 s | 内存:1.89 MB | 查询:4 | 缓存读取:4 写入:0 | 加载文件:23
select * from tbl_Articles WHERE ArticleID=1594322 LIMIT 0,1
select * from tbl_Articles_data WHERE ArticleID=1594322 LIMIT 0,1
select * from tbl_Articles_sphinx where id=1594322 LIMIT 0,1
SELECT ArticleID,Title FROM tbl_Articles WHERE ArticleID IN(1122405,1084389,1131627,1303827,1108235,1085092,1127333,1131897,1121552,1012622,1102925,1078116,1066580,1127221,992989,1125126,1098703,1096483,1110401,1304590,1081069,1097713,1054578,1061384,1133103,1099189,1086298,1131431,1048068,1076864) ORDER BY field (ArticleID,1122405,1084389,1131627,1303827,1108235,1085092,1127333,1131897,1121552,1012622,1102925,1078116,1066580,1127221,992989,1125126,1098703,1096483,1110401,1304590,1081069,1097713,1054578,1061384,1133103,1099189,1086298,1131431,1048068,1076864)