vba数组如何精确筛选_利用VBA代码，轻松完成向工作表中添加指定图片到指定位置...

最新推荐文章于 2022-03-06 12:22:52 发布

weixin_39639919

最新推荐文章于 2022-03-06 12:22:52 发布

阅读量418

点赞数

文章标签： vba数组如何精确筛选 vba移动文件 vue 数组指定位置添加数据向图片添加扰动python代码

VBA++ 题记：一剪闲云一溪月，一程山水一年华。一世浮生一刹那，一树菩提一烟霞。岁月静好，现世安稳。纵算云水漂泊，心若安宁，亦可淡若清风。希望见者与不见者都能安康。静下心，多学习有用的知识，多提高自己的水平和能力，这才是正道。时间就像一张网，你撒在哪里，你的收获就在哪里。谨记自己的方向，这是路之所在。适当节制自我的各种欲望,谁都逃不过时间的历练，谁都是命运的行者，谁都是在人生的道路上一步一趋的行路人。你要做的，是悄悄地去努力，等你变厉害之后，把自己也吓一跳，才是你现在需要当作目标的事。把生活与工作打理好，不负年华。不要轻言你是在为谁付出和牺牲，其实所有的付出和牺牲最终的受益人都是自己。

今日内容是和大家分享VBA编程中常用的 “积木”过程代码，这些内容大多是我的经验的记录。来源于我多年的经验。今日分享的是第NO.215-NO.215，内容是：

NO. 215：Insert方法在工作表中插入图片********************************************************************

VBA过程代码215：Insert方法在工作表中插入图片

Sub MynzinsertPic()

Dim i As Integer

Dim FilPath As String

Dim rng As Range

Dim ns As String

With Sheets("Sheet14")

For i = 2 To .Range("a65536").End(xlUp).Row

FilPath = ThisWorkbook.Path & "" & .Cells(i, 1).Text & ".jpg"

If Dir(FilPath) <> "" Then

.Pictures.Insert(FilPath).Select

Set rng = .Cells(i, 2)

With Selection

.Top = rng.Top + 1

.Left = rng.Left + 1

.Width = rng.Width - 1

.Height = rng.Height - 1

End With

Else

ns = ns & Chr(10) & .Cells(i, 1).Text

End If

.Cells(3, 1).Select

End With

If ns <> "" Then

MsgBox ns & Chr(10) & "没有相应的照片，请确认！"

End If

End Sub

代码解析：Mynz过程使用Insert方法在工作表中插入图片。代码开始For...Next循环，循环的终值由工作表中A列单元格的行数所决定。代码字符串变量FilPath保存A列名称单元格所对应的图片文件的路径和文件名，本例中图片文件的文件名应和A列中的名称一致。代码使用Dir函数在同一文件夹中查找与A列单元格中的名称相对应的图片文件，如果对应的图片文件存在则使用Insert方法将图片插入到工作表中，并将B列的单元格赋给变量rng。

当图片片插入到工作表时其实是插入到活动单元格的，此时需设置图片的Top属性和Left属性将图片移动到B列所对应的单元格中，并设置其Width属性和Height属性使其适应所在单元格的大小。如果在同一文件夹中没有与A列单元格对应的图片文件，则使用字符串变量ns保存没有图片文件的名称。如果字符串变量ns不等于空白说明文件夹中缺少图片文件，使用消息框提示。

*******************************************************