2007版Excel怎样用VBA代码插入图片?求代码

1、打开Excel，准备好表格。

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

3、接着点击菜单栏【插入】，在其下拉菜单中，选择【模块】。

4、在d出模块编辑窗口填入代码：Sub 导入图片()Dim sp As Shape, rng As Range, rg As Range, arg As RangeFor Each sp In Sheets("插入图片").ShapesIf sp.Type <>8 Thensp.Delete

Next spSet arg = Columns("a").End(xlDown)For Each rng In Range([a2], arg)pah = thisworkbook.Path &"\tupian\" &rng.Value &".jpg"。

5、在工作表的【开发工具】菜单下，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】。

6、点击【导入图片】按钮，图片被瞬间导入。就完成了。

1.打开Excel文件，录入数据。

请点击输入图片描述

2.点击界面上方的“宏”按钮。

请点击输入图片描述

3.写明代码名称，然后点击创建。

请点击输入图片描述

4.写入自动插入图片的VAB代码。

请点击输入图片描述

5.点击插入一个按钮控件。

请点击输入图片描述

6.将编写的代码指定到按钮控件上。

请点击输入图片描述

7.点击按钮控件后，图片就自动插入完成了。

请点击输入图片描述

Sub 批量插入图片()

Dim myfile As FileDialog

Set myfile = Application.FileDialog(msoFileDialogFilePicker)

With myfile

.InitialFileName = "E:\工作文件" ‘这里输入你要插入图片的目标文件夹

If .Show = -1 Then

For Each Fn In .SelectedItems

Selection.Text = Basename(Fn) '这两句移到这里

Selection.EndKey

If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末

Selection.TypeParagraph '在文末添加一空段

Else

Selection.MoveDown

End If

Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸

WidthNum = MyPic.Width

c = 6 '在此处修改相片宽,单位厘米

MyPic.Width = c * 28.35

MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height

If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末

Selection.TypeParagraph '在文末添加一空段

Else

Selection.MoveDown

End If

Next Fn

Else

End If

End With

Set myfile = Nothing

End Sub

Function Basename(FullPath) '取得文件名

Dim x, y

Dim tmpstring

tmpstring = FullPath

x = Len(FullPath)

For y = x To 1 Step -1

If Mid(FullPath, y, 1) = "\" Or _

Mid(FullPath, y, 1) = ":" Or _

Mid(FullPath, y, 1) = "/" Then

tmpstring = Mid(FullPath, y + 1)

Exit For

End If

Next

Basename = Left(tmpstring, Len(tmpstring) - 4)

End Function

执行此代码后，d出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。

---