解决excel2010及之后版本Pictures.Insert链接问题

时间：2015-03-05 17:07:00 阅读：772 评论：0 收藏：0 [点我收藏+]

解决excel2010及之后版本Pictures.Insert链接问题

excel2010及之后版本
Pictures.Insert方法，因为在文档中只存储链接信息

以前在Excel2003中用picture.insert方法写的代码，到了Excel2010中只能插入链接，

图片不能随文件一起保存，

解决方法1.

个简单的方法是将图片剪切一下，然后重新粘贴，
这样Excel文件中将在保存时包含图片

code:
lole_sheet.application.selection.cut //剪切粘贴图片让文件保存的时候包含图片
//lole_sheet.application.Pictures.cut //剪切粘贴图片让文件保存的时候包含图片
lole_sheet.Pictures.paste.select//剪切粘贴图片让文件保存的时候包含图片
lole_sheet.application.Selection.left=ldec_x
lole_sheet.application.Selection.top=ldec_y

2.改为shapes.addpicture,

但遇到图片宽高比例的问题。
经过一悉研究，好像找到了完美的方法，请各位指正。
----------------------------------------------
Shapes.AddPicture 最后两个参数用-1,-1表示按图片原始尺寸插入
ActiveSheet.Shapes(ActiveSheet.Shapes.Count)可以引用刚插入的图片，
从而可以读取图片宽和高，以及进行缩放。

如：
ldec_x=..//left
ldec_y=..//top
////原始图片大小插入
lole_sheet.Shapes.AddPicture(ls_filename, True, True,ldec_x,ldec_y,-1,-1) //
//lole_sheet.Shapes(lole_sheet.Shapes.Count)//可以引用刚插入的图片
////原始圖片大小
ldec_oripic_w=lole_sheet.Shapes(lole_sheet.Shapes.Count).Width
ldec_oripic_h=lole_sheet.Shapes(lole_sheet.Shapes.Count).Height
lole_sheet.Shapes(lole_sheet.Shapes.Count).left = ldec_x + 2
lole_sheet.Shapes(lole_sheet.Shapes.Count).top = ldec_y + 2
If ldec_w>0 Then
lole_sheet.Shapes(lole_sheet.Shapes.Count).Width =ldec_w
End If
If ldec_h>0 Then
lole_sheet.Shapes(lole_sheet.Shapes.Count).Height=ldec_h
End If

或选中方式：
ldec_x=..//left
ldec_y=..//top
//原始图片大小插入
lole_sheet.Shapes.AddPicture(ls_filename, True, True,ldec_x,ldec_y,-1,-1).select //選中對象
//原始圖片大小
ldec_oripic_w=lole_sheet.application.Selection.ShapeRange.Width
ldec_oripic_h=lole_sheet.application.Selection.ShapeRange.Height

lole_sheet.application.selection.left = ldec_x + 2
lole_sheet.application.selection.top = ldec_y + 2
If ldec_w>0 Then
lole_sheet.application.Selection.ShapeRange.Width =ldec_w
End If
If ldec_h>0 Then
lole_sheet.application.Selection.ShapeRange.Height=ldec_h
End If

以上方法PB测试通过。

标签：pictures.insert

原文地址：http://blog.csdn.net/cideason/article/details/44083127

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行