EXCEL VBA 导入图片自适应大小

2024-05-06 00:38:29

Sub into_pic()

On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息

'图片路径

pic_url = "d:\我的文档\桌面\"

'图片所在的列

pic_column_num = "C"

'图片宽度

pic_width = 100

'图片高度

pic_height = 100

'表格宽度

Range_width = 22

'表格高度

Range_Height = 100

'款号所在起始的列

k_id_column_start_num = "A"

'颜色所在起始的列

k_color_column_start_num = "B"

'款号所在起始的行

k_id_column_start_row = 2

For i = k_id_column_start_row To 65535

buffer_val = Range(k_id_column_start_num & i).Value

buffer_color_val = Range(k_color_column_start_num & i).Value

If buffer_val <> "" Then

ActiveSheet.Range(pic_column_num & i).Select

pic_urls = pic_url & "\" & buffer_val & buffer_color_val & ".jpg"

cColumn = ActiveCell.Column '所在列数

rRow = ActiveCell.Row '所在行数

'MsgBox (cColumn)

'MsgBox (rRow)

'Rows(i & ":" & i).RowHeight = Range_Height

'Columns(pic_column_num & ":" & pic_column_num).ColumnWidth = Range_width

' With ActiveSheet.Pictures.Insert(pic_urls)

With Sheets("Sheet1").Pictures.Insert(pic_urls) '可用

.ShapeRange.LockAspectRatio = msoFalse

.Placement = xlMoveAndSize

'.ShapeRange.Top = Selection.Top

'.ShapeRange.Left = Selection.Left

.ShapeRange.Left = Range(pic_column_num & i).Left

.ShapeRange.Top = Range(pic_column_num & i).Top

'.ShapeRange.Width = pic_width

'.ShapeRange.Height = pic_height

'.ShapeRange.Height = Range(pic_column_num & i).Height

.ShapeRange.Height = Range(pic_column_num & i).Height

.ShapeRange.Width = Range(pic_column_num & i).Width

''''''''''''''''''''''''''

' Sub Test()

' With Sheets("Sheet1").Pictures.Insert("d:\我的文档\桌面\52058.JPG ") '可用

' .ShapeRange.LockAspectRatio = msoFalse

' .Placement = xlMoveAndSize

' .ShapeRange.Left = Range("b2 ").Left

' .ShapeRange.Top = Range("b2 ").Top

' .ShapeRange.Height = Range("b2:b5 ").Height

' .ShapeRange.Width = Range("b2:c2 ").Width

' End With

' End Sub

''''''''''''''''''''''''''

End With

End If

Next i

End Sub

早期的文件代码，不自动缩放

Sub into_pic()

On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息

'图片路径

pic_url = "d:\我的文档\桌面\mu\pic"

'图片所在的列

pic_column_num = "C"

'图片宽度

pic_width = 100

'图片高度

pic_height = 100

'表格宽度

Range_width = 22

'表格高度

Range_Height = 100

'款号所在起始的列

k_id_column_start_num = "A"

'颜色所在起始的列

k_color_column_start_num = "B"

'款号所在起始的行

k_id_column_start_row = 2

For i = k_id_column_start_row To 65535

buffer_val = Range(k_id_column_start_num & i).Value

buffer_color_val = Range(k_color_column_start_num & i).Value

If buffer_val <> "" Then

ActiveSheet.Range(pic_column_num & i).Select

pic_urls = pic_url & "\" & buffer_val & buffer_color_val & ".jpg"

cColumn = ActiveCell.Column

rRow = ActiveCell.Row

With ActiveSheet.Pictures.Insert(pic_urls)

.Top = Selection.Top

.Left = Selection.Left

.ShapeRange.LockAspectRatio = msoFalse

.ShapeRange.Width = pic_width

.ShapeRange.Height = pic_height

End With

Rows(i & ":" & i).RowHeight = Range_Height

Columns(pic_column_num & ":" & pic_column_num).ColumnWidth = Range_width

End If

Next i

End Sub

EXCEL VBA 导入图片自适应大小相关推荐

excel批量导入图片的方法和例子
内容提要:文章分享了三个excel批量导入图片的典型案例:查找对应姓名的照片.批量导入图片等等,并提供附件下载.对Excel感兴趣的朋友可加 Excel学习交流群:284029260(www.itbl ...
Excel批量导入图片并在右侧单元格备注名称
如下图所示,小编要分享的是,Excel批量导入图片并在右侧单元格备注名称的操作 (方方格子插件) 1.先看动图演示吧 2.选中A2第一个需要添加图片的单元格 3.然后选择方方格子的图片工具 4.那我们 ...
css自适应图片样式,css怎么让图片自适应？css图片自适应大小的方法介绍
对于一个网页来说,有一张好看又清晰的背景图片是非常吸引人的,但是并不是每张图片都是有相同的大小,所以就需要晒西安图片的自适应,那么,css怎么让图片自适应呢?本篇文章将来介绍关于css图片自适应大小的 ...
html 中图片自适应大小设置
一.图片自适应大小图片设置固定大小(当然width和height至少大于200px的情况下)个人觉得就很影响响应式布局了,可能会使移动端局部发生错乱,所以图片在一个div中自适应大小,个人还是觉得挺 ...
css怎么设置背景图片自适应大小
在css中,可以利用"background-size"属性设置背景图片自适应大小,该属性用于设置背景图片的大小,只需要给背景图片元素添加"background-size: ...
让图片自适应大小的方法
1. 用后台程序自动生成缩略图 2. 用css调用expression控制图片溢出后的大小: (http://www.blog.edu.cn/user1/7987/archives/2006/1440 ...
微信小程序富文本标签 rich-text 图片自适应大小问题
最近项目新加了一个需求,由于时间比较充足的原因.我完成的很出色,但是无奈测试最后不走寻常路.几句话的说明他加了好多文字还搞了图片,甚至还有了一句经典的名言如果没有 BUG 她就没有工作,叫人苦不堪言. ...
java实现excel批量导入图片到服务器
使用easypoi批量导入excel数据到数据库,excel中的图片上传到服务器 1.引入依赖 2.实体类demo 3.测试的excel文档样式 5.服务器文件操作工具类 6.IDUtils工具类 7 ...
ReactNative之Image组件自适应高度，图片自适应大小
因为在现在0.50包括之前的ReactNative版本,Image组件必须要设置宽高才能显示.所以在图片宽高不确定的情况下,如何来让图片自适应屏幕高度呢? 需求原因:因为做商城详情页面的图片长短不一 ...

最新文章

热门文章