我们都知道当数据过多的时候，我们制作Excel图表就会显得非常的复杂，图表上面的内容就会特别多。Excel老玩家就会想到用切片器制作动态可变化的图表来显示。今天我们就来学习一下一个比......
2023-01-08
在不同版本 Excel 中插入图片 VBA代码
Excel函数
2023-01-08
我们在Excel中插入图片一般使用Picture集合的Insert方法。但是随着Excel版本的演进，在不同的版本指间插入图片还是有一些差别。
下面是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 合并上百个工作簿数据，你花了一天别人只用了10秒详细阅读
在工作中，可能许多朋友都会碰到一个情况，那就是工作簿和工作表数据的合并操作。如何将上百个工作簿快速合并到一个表格中，许多朋友可能会觉得不可思议。今天我们就来教大家学习一......
2023-01-08
-
Excel文本函数，excel拆分和组合函数，掌握这些就够了！详细阅读
今天在这里为你分享5个Excel文本函数，这些拆分和组合函数，你一定会用上的。①LEFT函数公式：=LEFT(A2,1)在Excel表格中，需要想要拆分汉字，想从哪里开始就从那哪里开始。首先选定单元格......
2023-01-08
-
Excel函数一键变翻译，学会了这个方法，再也用苦思冥想了！详细阅读
相信大家也和我一样，才开始看到Excel可以当做翻译软件的时候会很好奇，这究竟是怎样做到的？其实，这个方法并不是很难，它是由一个函数公式而制作出来的，好了，首先我们一起来看看成......
2023-01-08
-
Excel函数公式大全，办公室人员必备！详细阅读
函数可以说是所用快捷方法中最为简单的一种方法，为什么很多人认为函数用起来很难了？主要是因为它拥有很长的函数公式，记不住。其实不管是学Excel函数，还是学习其他的一些快捷方法......
2023-01-08