excel插入图片宏
将图片和本工作簿放在同一个文件夹中。在sheet1表中插入一个命令按钮,双击这个按钮将此代码复制进去。这里代码的格式为jpg格式,可以根据实际替换为你的格式。
Sub 图片导入()
Dim rng As Range, pah$, rng1 As Range, sp As Shape
pah = ThisWorkbook.Path & "\"
For Each sp In Sheet1.Shapes
If sp.Type = 11 Then
sp.Delete
End If
Next
For Each rng In Range("a2", [a2].End(xlDown))
Set rng1 = rng(1, 2)
Sheet1.Shapes.AddPicture pah & rng & ".jpg", 1, 1, rng1.Left, rng1.Top, rng1.Width, rng1.Height
Next
End Sub
然后用以下代码来自动导入图片。
这个需要和excel工作表事件进行配合才可完成,以下面模拟为例在职工信息中表中为员工插入图片,当单击职工姓名时,就会出现职工的照片,需要做的前期准备就是,必须要将职工信息表和职工照片放在同一文件夹下。在信息表中插入以下代码:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNextIfTarget.Column=2Then Me.Image1.Visible=True Image1.Picture=LoadPicture(ThisWorkbook.Path&"\员工照片\"&Target.Offset(0,-1)&".jpg") Image1.Left=Target.Left+Target.Width Image1.Top=Target.TopElse Me.Image1.Visible=FalseEndIfc=Target.ValueEndSub
材料/工具:电脑、Excel2007
1、首先,打开Excel表格,点击表格最左上边office按钮---excel选项 。
2、弹出来一个对话框,点击”常用“栏目,右侧出现常用对话框,我们找到一个叫做“在功能区显示开发者选项卡”,点击勾选它。点击确定。
3、回到打开表格的开始页面,将表格中图片那一列填充对应的款号或编码,注意要插入图片的表格里边在插入图片之前是有编号的,里边的编号就是对应的款号。如图所示点击”Visual Basic“ 快捷键是”ALT+F11 “。
4、然后点击 ”文件“,选择”导入文件“。
5、导入后文件后,窗口上方有一排”宏“的指令,点那个绿色的三角运行"宏" 三角按钮就是经常用到的”开始/播放“那个按钮点,然后跳出一个对话框,点击”运行“。
6、我们要导入图片的位置,就是把图片存在我们电脑上的哪个位置复制下来填进方框里边去,复制 粘贴就可以了。也可以手动输入进去,但是完成后,一定记得再加一个“\”点确定。
7、点击确定,对话框关闭。我们就回到开始页面了,这时发现我们已经将图片导入表中对应的款式去了。
这里图片的扩展名是PNG, 你需要改成你当前图片的扩展名
"D:\360data\重要数据\我的文档\图片\" 这个路径你改成你图片的路径
图片随单元格大小变化
你如果名称里面本身就带扩真名 & ".png " 代码中的扩展名这个去掉就可以了 ,只需要改下图片保存路径
Sub 图片批量导入()
Dim r!
Dim s As Shape
Dim rng As Range
On Error Resume Next
r = ActiveSheet.[a65536].End(3).Row
For Each s In ActiveSheet.Shapes
If s.Type <> 8 Then s.Delete
Next
For Each rng In Range("B1:B" & r)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rng.Left, rng.Top, rng.Width, rng.Height).Select
Selection.ShapeRange.Fill.UserPicture "D:\360data\重要数据\我的文档\图片\" & rng.Offset(0, -1).Text & ".png "
Next
End Sub
那我怎么判断你是需要插入什么样的图片呢,最好有附件才好操作!!
xcel表格如何用宏自动计算(如入库数,出库数和库存数,有个按键,窗口的...
当用户频繁进行某一固定重复操作才需要使用到宏,你可以使用宏录制功能。另外你的需求根本不需要宏来实现,在汇总单元格录入汇总公式即可,excle是用来简化数据统计的,不是用来装逼的。如果想深入学习,建议网上搜索相关视频资料。
excel中的宏怎么使用?
例如,如果经常在单元格中输入长文本字符串,则可以创建一个宏来将单元格格式设置为文本可自动换行。
...EXCEL里面 E xcel表格中的复制 如何把文本和图片一起复制进去?_百 ...
1、选择单元格的区域,能包含图片的整个宽度或高度,或者能包含整个图片,如下图所示,这三种选择方式;2、按第一步要求选择单元格区域后按ctrl+C 3、选择目标区域的左上角单元格,按ctrl+V,图片就一起被复制了。
如何让ELXCEL表点击自动加一,例如是21,我点了一下21就可以变成22_百度...
对单独的一个单元格,可以用“插入→工具栏→窗体→微调项”功能,在页面中画一个“上下箭头”的微调按钮,右击按钮执行“设置控件格式”命令,在“控制”选项中设置“最小值”、“最大值”、“步长”、“单元格链接”(假如A2),“确定”即可。如果是一个数据列或者是区域,应该考虑用VBA功能来实现...
如何用EXCEL中命令按钮调用VBA中用户窗口??
详细操作步骤如下:1.Alt+F11,代开VBA编辑界面,输入下图中的代码:2.关闭VBA,返回工作表,在“开发工具”中点击插入,选择第一个命令按钮 3.插入之后,会自动弹出宏编辑界面,此次能看到刚才写好的宏名字,选中,并确定 4.点击按钮,就看到弹出Userform1来了。
excel的工作薄不需要保存成启用宏的模板就可以使用宏
您要问的是excel的工作薄不需要保存成启用宏的模板就可以使用宏吗?是。xcel工作簿不需要保存成启用宏的模板就可以使用宏。在Excel中,启用宏的工作簿是一种特殊的工作簿,是自Excel2007以后的版本所特有的,主要用于存储VBA宏代码或者Excel4.0宏工作表(.xml)。这种工作簿的扩展名为“.xlsm”。
Microsoft Excel 工作表快捷键列表
CTRL+F11 插入 Microsoft Excel 4.0 宏工作表CTRL+PAGE DOWN 移动到工作簿中的下一个工作表CTRL+PAGE UP 移动到工作簿中的上一个工作表SHIFT+CTRL+PAGE DOWN 选择工作簿中当前和下一个工作表SHIFT+CTRL+PAGE UP 选择工作簿中的当前工作簿或上一个工作簿4、用于输入数据的按键用于在工作表中输入数据的按键请按...
如何把excel中的一个工作表单独嫖猠xcel文件
使用宏可以解决。比如运行以下宏代码可以把工作薄中的sheet1工作表单独保存为一个文件:Sub 保存sheet1工作表为工作薄()Sheets("Sheet1").Activate ActiveSheet.Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\\" & ThisWorkbook.ActiveSheet.Name ActiveWorkbook.Close End Sub ...
请教各位高手一个问题:我要做一份员工的相片收集表,要求是上面是员工的...
那就是使用两列录入资料,一列是身份证号码,照片对应放在右边一列。如果要查人的话,在EXCEL表中按“查找”按钮就可以解决问题。还有网上下载一个员工管理系统类的软件也可以实现你的管理需要,包括资料和相片什么的都全了,而且很多软件还带有导出XCEL表功能。这样使用起来更方便。
打开有密码的EXCEL文件总是无响应
xcel中的公式如:VLOOKUP等函数公式, 或者个人编制的宏文件时,所有带有宏的公式单元格全变0值或者错误值提示字符等等。三、宏病毒处理方法 1.使用office宏病毒专杀工具,不影响原有文件。会提示MSExcel.ToDole.a清除完成。【极力推荐】比较安全。2.使用杀毒软件提示有macro.office.vba.gen,但清除之后...
赫虽苦胆: 将图片导入到EXCEL指定的模板中,一个产品有一个图片.并自动适应单元格大小. 对EXCEL模板能够像报表一个,在每一页显示页头页尾(显示共几页,第几页),将外部数据添入.
开阳县18331685253: Excel中怎么利用宏使在一个单元格输入内容后自动插入图片 - ?
赫虽苦胆: 你的目的是想像人事管理那样,输入一个名字,后面一个格子就出来一个头像用宏可以实现,给你提供解决思路1、监测CHANGE过程,当某列特殊单元格(如姓名)变化...
开阳县18331685253: EXCEL中的宏怎么用 我要在电子表里面插图片 可以套用公式然后插进去 - ?
赫虽苦胆: 这个宏在B2、B3、...里插入图片,图片存放在"D:\总图库\“里,明在在B2、B3、...里.由于你代码里有个变量(b)没有赋值,所以建议你...
开阳县18331685253: excel怎么用宏选取图片 放在指定单元格内 - ?
赫虽苦胆: 首先,宏功能wps默认没有,需要单独安装,建议使用微软的office.你说的功能可以实现,可以在excelhome论坛里搜索.Sub movepic() Sheet1.Shapes(1).Left = [B2].Left '图片的左侧即B2左侧 Sheet1.Shapes(1).Top = [B2].Top '图片的顶部即B2顶部 End Sub
开阳县18331685253: EXCEL插入图片宏怎么写 - ?
赫虽苦胆: Sub InsPic() ActiveSheet.Pictures.Insert ( _ "W:\2015\1.jpg") With Range("B23:AK39") ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = .Left ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = .Top ActiveSheet.Shapes(...
开阳县18331685253: 怎么使用07版本EXCEL中的宏导入图片?详细步骤是怎样的? - ?
赫虽苦胆: 下面的宏代码就可以把某个位置的图片插入到表格单元格B2的位置.可以改改代码试试看.Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next '设置错误处理 Application.ScreenUpdating = False '关闭屏幕刷新 Dim ...
开阳县18331685253: 如何使用EXCEL中的宏,使插入的图片成一行三张排列··· - ?
赫虽苦胆:Sub 插入图片() Dim iPath, FileName As String, X, Y As Long With Application.FileDialog(msoFileDialogFolderPicker)If .Show = 0 Then Exit SubiPath = .SelectedItems(1) End With FileName = Dir(iPath & "\*.jpg") If FileName <> ...
开阳县18331685253: excel中应用宏调用图片 - ?
赫虽苦胆: 直接录制宏.工具---宏---录制新宏---开始录制.选定B列对应数字的单元格,按正常超级链接的做法操作一遍即可,录制之后别忘了点击停止录制按钮.我也遇到过相应问题一个个做的好麻烦,等下高手的建议.
开阳县18331685253: Excel怎么录制一个适用于任意图片的宏 - ?
赫虽苦胆: 你录制的宏代码应该包含类似下面的两行代码?ActiveSheet.Shapes("Picture 1").SelectSelection.ShapeRange.ZOrder msoSendToBack 第一行语句为图片选中代码,它的功能是选中指定的那个图片picture1,因为每次执行这个宏都要先执行这条语句,从而picture1始终都是先被选中,然后再执行第二行语句,把选中的图片置底,所以导致置底功能应用不到其它图片上,把第一行语句删除就可以了.以后选中要置底的图片再执行修改过宏,你可以看到想要的结果了.
开阳县18331685253: 关于EXCEL宏插入图片,在线等! - ?
赫虽苦胆: 根据照片编码导入,图片所在文件夹程序会让你选.Sub 导入图片() Dim shp As Shape Dim r As Integer Dim fld As String '图片所在文件夹 Dim PicPath As String...