作者：乔山办公网日期：
返回目录：excel表格制作
这种需要写代码来处理，批量网络 下载图片
Sub xHyperLink()
On Error Resume Next
Dim xs As Shape
For Each xs In ActiveSheet.Shapes '查找每一个图片
If xs.TopLeftCell.Column = 1 Then '判断来图片左上角单元格位置，如果在A列自
Cells(xs.TopLeftCell.Row, 2) = xs.Hyperlink.Name '取得图片左上单元格所在行，将图片超链地址写入对应的B列
End If
Next
End Sub
这样改一下……
重点：要zhidao定义shapes 的范围……
1、全选，复制图片地址。
2、粘贴到下图高手软件中，选择保存的位置后，点“立即下载”就可以。
批量提取超链接一般用VBA
调整图zd片可以这么做：
1、按CTRL+G，调出“定位”，选“对象”，确定后就选中了全部图片
2、按 CTRL+1 调出“属内性”，设置图片格式，在大小输入图片的高度和宽度后全部图片就是一样大小了。
3、使用页面布容局的对齐功能进行对齐，2003版在绘图功能里。