开发工具:
文件大小: 40kb
下载次数: 0
上传时间: 2013-09-14
详细说明： 具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下： Option Explicit Sub 插入图片() On Error Resume Next '设置错误处理 Application.ScreenUpdating = False '关闭屏幕刷新 Dim rngTemp As Range, k As Range, picPath$, picTemp As Picture '设定图片名称所在单元格区域 Set rngTemp = Application.InputBox("选择图片名称所在单元格区域：", "选择单元格", Type:=8) For Each k In rngTemp '循环插入图片 k.Offset(0, 1).Select '选择插入图片的位置 ActiveSheet.Pictures(k & k.Row).Delete '删除单元格中原来的图片 picPath = ThisWorkbook.Path & "\" & Trim(k) & ".jpg" '定义插入图片的地址 Set picTemp = Acti veSheet.Pictures.Insert(picPath) '插入图片 picTemp.Name = k & k.Row '设定所插入图片的名称 picTemp.Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置 With picTemp.ShapeRange .LockAspectRatio = msoFalse '取消图片纵横比锁定 .Height = Selection.Height '设置所插入图片的高度与单元格的高度相等 .Width = Selection.Width '设置所插入图片的宽度与单元格的宽度相等 End With Set picTemp = Nothing '重置图片对象 Next Application.ScreenUpdating = True '打开屏幕刷新 End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
