EXCEL2013 VBA插入图片 换电脑后看不见图片了？？？？急
picPath=ThisWorkbook.Path&"\竖\12.png"'获取竖放图片路径SetpicTemp=ActiveSheet.Pictures.Insert(...
picPath = ThisWorkbook.Path & "\竖\12.png" '获取竖放图片路径
Set picTemp = ActiveSheet.Pictures.Insert(picPath) '插入图片
picTemp.Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置
With picTemp.ShapeRange
.LockAspectRatio = msoTrue '设置图片纵横比锁定
.Width = 12 '设置所插入图片的高度
.Top = 10
.Left = 200
End With
把图片文件夹放到代码中的路径是能正常显示的，我想要的效果是，图片直接就在excel文件中，就跟直接手动插入的图片一样。
录制宏的方式试过了，录制的代码也不行的。求高手赐教！ 展开
Set picTemp = ActiveSheet.Pictures.Insert(picPath) '插入图片
picTemp.Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置
With picTemp.ShapeRange
.LockAspectRatio = msoTrue '设置图片纵横比锁定
.Width = 12 '设置所插入图片的高度
.Top = 10
.Left = 200
End With
把图片文件夹放到代码中的路径是能正常显示的，我想要的效果是，图片直接就在excel文件中，就跟直接手动插入的图片一样。
录制宏的方式试过了，录制的代码也不行的。求高手赐教！ 展开
2个回答
展开全部
图片在放在本excel表格的路径下 <竖>文件夹中
比如:本表在D盘根目录下,在本目录下建一个<竖>的文件夹,将图片在放在里
运行这个宏,应该就可以了.
比如:本表在D盘根目录下,在本目录下建一个<竖>的文件夹,将图片在放在里
运行这个宏,应该就可以了.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
