2007版Excel怎样用VBA代码插入图片?求代码
发布网友
发布时间:2022-04-21 22:00
我来回答
共4个回答
热心网友
时间:2023-08-21 19:29
1、打开Excel,准备好表格。
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】。
3、接着点击菜单栏【插入】,在其下拉菜单中,选择【模块】。
4、在弹出模块编辑窗口填入代码: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、点击【导入图片】按钮,图片被瞬间导入。就完成了。
热心网友
时间:2023-08-21 19:29
如下代码可插入到指定单元格。
Range("a1").Select '选中A1单元格
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a1").Left, _
Range("a1").Top, Range("a1").Width, Range("a1").Height).Select
Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片,大小与单元格一样。
VBA是Visual Basic for
Applications的缩写,是内嵌于office软件中的一个开发模块,这个模块提供程序自主开发,语言基础和VB(Visual
Basic)相似。在Excel的“工具—宏—编辑器”可以打开,也可按Alt+F11打开
热心网友
时间:2023-08-21 19:30
楼上的代码也能插入图片,只是不能定义到指定位。
如下代码可插入到指定单元格。
Range("a1").Select '选中A1单元格
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a1").Left, _
Range("a1").Top, Range("a1").Width, Range("a1").Height).Select
Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片,大小与单元格一样。
热心网友
时间:2023-08-21 19:30
亲,举例如下。把d:\temp\temp.jpg改成你实际的图片地址和名称即可。
ActiveSheet.Pictures.Insert "d:\temp\temp.jpg"
2007版Excel怎样用VBA代码插入图片?求代码
1、打开Excel,准备好表格。2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】。3、接着点击菜单栏【插入】,在其下拉菜单中,选择【模块】。4、在弹出模块编辑窗口填入代码:Sub 导入图片()Dim sp As Shape, rng As Range, rg As Range, arg As RangeFor Each sp ...
2007版Excel怎样用VBA代码插入图片?求代码
如下代码可插入到指定单元格。Range("a1").Select '选中A1单元格 ActiveSheet.Shapes.AddShape(msoShapeRectangle,Range("a1").Left,_Range("a1").Top,Range("a1").Width,Range("a1").Height).Select Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片,大小与单元格一样。VBA是V...
excel的VBA插进图片不能在Office2007内让图片按标识自动归位
如下修改代码对应部分:With picTemp.ShapeRange .Top = k.Top .Left = k.Left .LockAspectRatio = msoFalse .Height = k.Height .Width = k.WidthEnd With其中加入了 .Top = k.Top .Left = k.Left 设置图片位置
Excel2007中如何编辑VBA代码?
在Excel 2007中编辑VBA代码,首先需要理解SUB语言概念。SUB过程,或称为Sub过程,是在Sub语句和End Sub语句之间的一系列Visual Basic语句。要开始编辑,打开Excel,然后在顶部菜单中选择"开发"选项卡。点击"Visual Basic",这将打开Visual Basic编辑器。在Visual Basic编辑器中,选择一个工作簿或模块,这将...
请问Excel2007怎样用VBA代码操控图片对象
(2)通过Shape的Duplicate方法为当前图形生成一副本。(3)通过设置第2步生成图形副本的Top和Left属性为和目标单元格的Top和Left属性一致来将复制的图形移动到目标单元格上方。我用的是Excel 2003,刚在帮助里看的,Excel 2007对图形对象的处理应该没有什么变化吧,你试试!
用excel 2007录制插入图片宏里没有插入图片的vba代码
供参考:Sub 宏1() picPath = "C:\Users\Chh\Desktop\邮件合并视频教程.gif" ActiveSheet.Pictures.Insert picPathEnd Sub
EXCEL VBA 批量插入图片代码 通过VBA 前面输入刀号 后面图片自动跟出...
下面代码需要改动,供参考 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Offset(0, 0) = "" Then Exit Sub On Error GoTo line10:If Target.Interior.ColorIndex = 6 Then Ttop = Cells(Target.Row - 3, Target.Column + 1).Top Tleft = Cells(Target.Row - 3, Target...
Excel2007版 插入的图形(箭头)在单元格中自动居中并自适应?
右键添加模块1,输入下面代码。即可 Sub Arrow()Dim i As Integer Dim Cell As Range With ActiveSheet For i = 1 To .Shapes.Count If .Shapes(i).Name Like "Straight Arrow*" Then Set Cell = .Shapes(i).TopLeftCell .Shapes(i).Top = Cell.Top + Cell.RowHeight / 2 .Shapes(i)...
求解:如何用EXCEL VBA编程处理插入图片的序号?
Public Sub Test()Ppath = Application.GetOpenFilename("EXCEL (*.JPG, *.JPG", Title:="打开图片文件")Picture = Sheet1.Pictures.Insert(ppath).Name '插入图片 Pname=Sheet1.Shapes(Picture).Name '得到图片的名字 Sheet1.Shapes(Picture).Name="Xiaoma" '设置图片的名字 End ...
请问如何用Excel vba在单元格中插入照片
插入---模块---将下面代码粘贴进去就行了。Sub 批量插入图片()Dim wj As String Dim rng As Range Sheets("员工档案").Select '选中要插入图片的工作表 x = [a65536].End(xlUp).Row '取得最后一行的行号 For i = 2 To x na = Cells(i, 2) '从第二列(即B列)得到员工名字,并以此...