Excel VBA 插入指定图片到单元格并只适应大小

Sub 插入图片()

Dim filenames As String
Dim filefilter1 As String

filefilter1 = ("所有图片文件（*.jpg;*.bmp;*.png;*.gif）,*.jpg;*.bmp;*.png;*.gif") '所有图片文件后面的括号为中文括号
filenames = Application.GetOpenFilename(filefilter1, , "请选择一个图片文件", , MultiSelect:=False)

'没有选中文件时，做容错处理
If filenames = "False" Then
Exit Sub
End If

'插入图片到指定的单元格
Sheet1.Pictures.Insert(filenames).Select

'图片自适应单元格大小
On Error Resume Next
Dim picW As Single, picH As Single
Dim cellW As Single, cellH As Single
Dim rtoW As Single, rtoH As Single
cellW = ActiveCell.Width
cellH = ActiveCell.Height
picW = Selection.ShapeRange.Width
picH = Selection.ShapeRange.Height
rtoW = cellW / picW * 0.95
rtoH = cellH / picH * 0.95
If rtoW < rtoH Then
Selection.ShapeRange.ScaleWidth rtoW, msoFalse, msoScaleFromTopLeft
Else
Selection.ShapeRange.ScaleHeight rtoH, msoFalse, msoScaleFromTopLeft
End If
picW = Selection.ShapeRange.Width
picH = Selection.ShapeRange.Height
Selection.ShapeRange.IncrementLeft (cellW - picW) / 2
Selection.ShapeRange.IncrementTop (cellH - picH) / 2

End Sub

Excel VBA 插入指定图片到单元格并只适应大小相关推荐

Excel VBA 学习笔记13：单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...
Excel根据表格内容批量导入指定图片到单元格
如下图所示想根据姓名列导入对应的图像列内容,看小编如何操作呢,请看动图演示 (方方格子插件) 1.选择图片工具按钮 2.选择根据内容导入图片 3.选择图片名的拉选按钮 4.拉选图片名单元格 5 ...
cxgrid 行合并单元格_【Excel VBA】如何批量撤销合并单元格？
周末好,之前我们分享了批量合并单元格的VBA小代码,链接参考: [Excel VBA]如何批量合并相同值单元格? 天下大势合久必分.分久必合.分分合合合合分分又合合合再分分分又又合合合合合合合---- ...
在Excel中插入行并复制单元格格式
标题工作需要在Excel中的sheet页中,插入行并复制上一行的单元格格式.注意是当前sheet页中的操作.跨sheet页或者跨Excel文件并不能使用.` public static void ma ...
excel vba怎么获得当前选中单元格
获取代码如下 Sub Worksheet_SelectionChange(ByVal Target As Range)[a5] = ActiveCell.Cells '获取选中单元格内容[a6] = ...
speedoffice（Excel）如何让图片随单元格大小改变？
表格中的图片如何随单元格的大小而自动改变呢?一起来看看吧首先,新建一个表格并添加图片. 点击图片选中,右侧边栏中单击"显示高级设置". 在出现的弹窗中选择点击"单元捕捉 ...
3, excel vba 获取表格里的单元格的值
通过上一节, 我们己经可以掌握进入vba的编辑页面,可以愉快的写代码了. 接下来,给大家看看怎么取得表格里一个单元格的值.因为只有拿到了这个值,你才能对它进行各种改造如下图: 单元格 A1 里有一个 ...
Excel vba 具有零值的单元格中显示0
1.编写VBA宏:具有零值的单元格中显示0,并保存到"PERSONAL"个人工作簿 2.快速访问工具栏设置自定义宏按钮 Sub 具有0值的单元格中显示0() Dim A$ ...
c修改datatable单元格的值_神奇的VBA编程：批量拆分单元格数据
批量对单元格区域内每个单元格中的数据按照一定的规则进行拆分是职场工作中经常碰到的操作.Excel数据选项卡中"分列"提供了基础的功能.能帮助用户通过鼠标快速分列数据. 本篇< ...

Excel VBA 插入指定图片到单元格并只适应大小

Excel VBA 插入指定图片到单元格并只适应大小相关推荐

最新文章

热门文章