欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > Excel专区 > Excel函数 > 在不同版本 Excel 中插入图片 VBA代码

在不同版本 Excel 中插入图片 VBA代码

时间:2020-07-05 13:14作者:admin来源:未知人气:777我要评论(0)

我们在Excel中插入图片一般使用Picture集合的Insert方法。但是随着Excel版本的演进,在不同的版本指间插入图片还是有一些差别。

在不同版本 Excel 中插入图片 VBA代码

下面是Excel2003中的代码。其中Insert方法中的文件路径的文件夹分界符可以是””也可以是”/”。另外,设置LoctAspecRatio属性为True并不能固定长宽比,需要同时调整长度和宽度。

SubInsertImg2003()

DimimgWidthAsInteger

DimfixWidthAsInteger

DimdRatioAsDouble

'设置图片显示固定宽度

fixWidth=Cells(2,2)。Width*5

'选择图片插入位置

Cells(2,2)。Select

WithActiveSheet。Pictures。Insert("C:Test。jpg")

'获取图片插入后的原始宽度

imgWidth=。ShapeRange。Width

'获取拉伸比,如果固定显示高度的话用Height属性

dRatio=fixWidth/imgWidth

'Excel2003中设置固定长宽比不起作用'

。ShapeRange。LockAspectRatio=msoTrue

'调整宽度

。ShapeRange。ScaleWidthdRatio,msoFalse,msoScaleFromTopLeft

'调整高度

。ShapeRange。ScaleHeightdRatio,msoFalse,msoScaleFromTopLeft

EndWith

EndSub

Excel2007中插入图片的代码基本上一样。但是Insert方法中的文件路径的文件夹分界符只能是””。另外设置固定长宽比在Excel2007中有效,所以只需要设置宽度即可。还有一个不同的地方是2007中使用代码插入图片后,图片并不定位于当前选择的单元格,需要设置图片的位置。

SubInsertImg2007()

DimimgWidthAsInteger

DimfixWidthAsInteger

DimdRatioAsDouble

'设置图片显示固定宽度

fixWidth=Cells(2,2)。Width*5

'选择图片插入位置

Cells(2,2)。Select

WithActiveSheet。Pictures。Insert("C:Test。jpg")

'获取图片插入后的原始宽度

imgWidth=。ShapeRange。Width

'获取拉伸比,如果固定显示高度的话用Height属性

dRatio=fixWidth/imgWidth

'设置固定长宽比,默认为True

。ShapeRange。LockAspectRatio=msoTrue

'调整宽度

。ShapeRange。ScaleWidthdRatio,msoFalse,msoScaleFromTopLeft

'不需要重复设置高度'

。ShapeRange。ScaleHeightdRatio,msoFalse,msoScaleFromTopLeft

'Excel2007和2003不同,使用代码插入图片的位置并不位于选择的单元格

。Left=Cells(2,2)。Left

。Top=Cells(2,2)。Top

EndWith

EndSub

2007的代码可以用于2010,但是当保存文件时,你会发现文件的大小并没有什么改变,实际上在Excel2010里使用代码插入图片只是保存了指向图片的链接,图片本身并没有保存下来。当源图片文件被删除或移走,Excel文件将不能显示图片。一个简单的方法是将图片剪切一下,然后重新粘贴,这样Excel文件中将在保存时包含图片。同时,Cut方法的位置放在ScaleWidth前或者后将影响图片的保存质量。

SubInsertImg2010()

DimimgWidthAsInteger

DimfixWidthAsInteger

DimdRatioAsDouble

'设置图片显示固定宽度

fixWidth=Cells(2,2)。Width*5

'选择图片插入位置

Cells(2,2)。Select

WithActiveSheet。Pictures。Insert("C:Test。jpg")

'获取图片插入后的原始宽度

imgWidth=。ShapeRange。Width

'获取拉伸比,如果固定显示高度的话用Height属性

dRatio=fixWidth/imgWidth

'设置固定长宽比,默认为True

。ShapeRange。LockAspectRatio=msoTrue

'调整宽度

。ShapeRange。ScaleWidthdRatio,msoFalse,msoScaleFromTopLeft

'不需要重复设置高度'

。ShapeRange。ScaleHeightdRatio,msoFalse,msoScaleFromTopLeft

'Excel2010和2007不同,插入的图片位于当前选择的单元格,不需要设置位置'

。Left=Cells(2,2)。Left'。Top=Cells(2,2)。Top

'剪切粘贴图片让文件保存的时候包含图片

。Cut

ActiveSheet。Pictures。Paste

EndWith

EndSub

在不同版本 Excel 中插入图片 VBA代码的下载地址:
  • 本地下载

  • 相关阅读 Excel有哪些常用的数学函数?​Excel取消表格中虚线的两种方法Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式,发给心仪的她/他Excel表格如何自动求和

    文章评论
    发表评论

    热门文章 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均

    最新文章 Excel有哪些常用的数学函数?​Excel取消表格中虚线的两种方法 Excel最常见的「错误值」,这些含义你都知道吗?实现快速找出Excel表格中两列数据不同内容的3种方法!如何利用Excel一键提取身份证的这些重要信息,公式直接套用!Excel如何制作动态红绿灯,工作可不要亮红灯哦

    人气排行 excel 两表数据快速对比,高手都是这样做,四种方法随你选.xlsm是什么文件格式,以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式:用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解,条件统计重复值,告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式

    盖楼回复X

    (您的评论需要经过审核才能显示)