Sub 按列批量插图() '按指定列的内容插入同名图片对应到右边列,图片大小自动适应单元格大小' On Error GoTo aa a = ActiveCell.Column '活动的列' b = a + 1 '活动列的右边一列' D = ActiveSheet.Cells(65536, a).End(xlUp).Row '最后一行 '跳出选择文件夹对话框 Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If
很多时候再项目中，我们往往需要先获取图片的大小再加载图片，但是某些特定场景，如用过cocos2d-js的人都知道，在它那里只能按比例缩放大小，是无法设置指定大小的图片的，这就是cocos2d-js 的坑了，我们必须先获取图片大小，计算比例再对图片进行缩放。
查阅资料，我总结了两种通过url获取图片大小的方法：
1.预加载获取图片大小
var imgLoad = function (url, callback) {
var img = new Image();
img.src = url
