高手请进!EXCEL如何实现自动引用照片?
发布网友
发布时间：2022-05-01 14:57
我来回答
共1个回答
热心网友
时间：2023-10-20 12:36
假设当前表格为“Sheet1”，单元格A1为序号或人名，单元格B1为照片区。
照片文件与序号或人名必须一一对应，文件名为“1.jpg”、“2.jpg”......或“ 张三.jpg”、“李四.jpg”......，保存目录为“e:\人名”。
先将单元格B1的字体颜色选为白色，以便保存和隐藏一些文字。
然后按Alt+F11，选择“Sheet1”插入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub '*发生变化的仅为第1列
If Target.Row <> 1 Then Exit Sub '*发生变化的仅为第1行
If Sheet1.Cells(Target.Row, 1) <> "" Then 'A1单元格要写入1、2......或张三、李四......
Dim bPath As String, Rng As Range, Rng2 As Range
Dim Shp
bPath = "e:\人名\" & Sheet1.Cells(1, 1) & ".jpg" '图片路径，自定义
Set Shp = Sheet1.Pictures.Insert(bPath) '插入图片
Set Rng2 = Target.Offset(0, 1) '保存图片的名称
If Rng2.Value <> "" Then
'删除已经插入的图片
Sheet1.Shapes(Rng2.Value).Delete
End If
Set Rng = Target.Offset(0, 1) '插入图片的位置
With Shp '移动位置和大小
.Width = Rng.Width - 2 '设置图片的宽度(未综合考虑其它图片的宽度)
Rng.RowHeight = .Height + 2 '改变单元格高度
.Left = Rng.Left + 1
.Top = Rng.Top + 1
Rng2.Value = .Name '备份当前图片的名称，方便删除、更新。B1单元格文字颜色为白色，可起隐藏文字作用。
End With
End If
End Sub
注：先点击A1单元格，再任选其它单元格才有变化。
热心网友
时间：2023-10-20 12:36
假设当前表格为“Sheet1”，单元格A1为序号或人名，单元格B1为照片区。
照片文件与序号或人名必须一一对应，文件名为“1.jpg”、“2.jpg”......或“ 张三.jpg”、“李四.jpg”......，保存目录为“e:\人名”。
先将单元格B1的字体颜色选为白色，以便保存和隐藏一些文字。
然后按Alt+F11，选择“Sheet1”插入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub '*发生变化的仅为第1列
If Target.Row <> 1 Then Exit Sub '*发生变化的仅为第1行
If Sheet1.Cells(Target.Row, 1) <> "" Then 'A1单元格要写入1、2......或张三、李四......
Dim bPath As String, Rng As Range, Rng2 As Range
Dim Shp
bPath = "e:\人名\" & Sheet1.Cells(1, 1) & ".jpg" '图片路径，自定义
Set Shp = Sheet1.Pictures.Insert(bPath) '插入图片
Set Rng2 = Target.Offset(0, 1) '保存图片的名称
If Rng2.Value <> "" Then
'删除已经插入的图片
Sheet1.Shapes(Rng2.Value).Delete
End If
Set Rng = Target.Offset(0, 1) '插入图片的位置
With Shp '移动位置和大小
.Width = Rng.Width - 2 '设置图片的宽度(未综合考虑其它图片的宽度)
Rng.RowHeight = .Height + 2 '改变单元格高度
.Left = Rng.Left + 1
.Top = Rng.Top + 1
Rng2.Value = .Name '备份当前图片的名称，方便删除、更新。B1单元格文字颜色为白色，可起隐藏文字作用。
End With
End If
End Sub
注：先点击A1单元格，再任选其它单元格才有变化。
热心网友
时间：2023-10-20 12:36
假设当前表格为“Sheet1”，单元格A1为序号或人名，单元格B1为照片区。
照片文件与序号或人名必须一一对应，文件名为“1.jpg”、“2.jpg”......或“ 张三.jpg”、“李四.jpg”......，保存目录为“e:\人名”。
先将单元格B1的字体颜色选为白色，以便保存和隐藏一些文字。
然后按Alt+F11，选择“Sheet1”插入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub '*发生变化的仅为第1列
If Target.Row <> 1 Then Exit Sub '*发生变化的仅为第1行
If Sheet1.Cells(Target.Row, 1) <> "" Then 'A1单元格要写入1、2......或张三、李四......
Dim bPath As String, Rng As Range, Rng2 As Range
Dim Shp
bPath = "e:\人名\" & Sheet1.Cells(1, 1) & ".jpg" '图片路径，自定义
Set Shp = Sheet1.Pictures.Insert(bPath) '插入图片
Set Rng2 = Target.Offset(0, 1) '保存图片的名称
If Rng2.Value <> "" Then
'删除已经插入的图片
Sheet1.Shapes(Rng2.Value).Delete
End If
Set Rng = Target.Offset(0, 1) '插入图片的位置
With Shp '移动位置和大小
.Width = Rng.Width - 2 '设置图片的宽度(未综合考虑其它图片的宽度)
Rng.RowHeight = .Height + 2 '改变单元格高度
.Left = Rng.Left + 1
.Top = Rng.Top + 1
Rng2.Value = .Name '备份当前图片的名称，方便删除、更新。B1单元格文字颜色为白色，可起隐藏文字作用。
End With
End If
End Sub
注：先点击A1单元格，再任选其它单元格才有变化。
高手请进!EXCEL如何实现自动引用照片?
先将单元格B1的字体颜色选为白色，以便保存和隐藏一些文字。然后按Alt+F11，选择“Sheet1”插入如下代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Next If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub '限制发生变化的仅为第1列 I...
怎么在EXCEL表格自动插入图片,请高手指点,请说详细一点!!!谢谢
1.在开发工具里，双击打开 thisWorkBook 输入：Private Sub Workbook_Open()ActiveSheet.Pictures.Insert("D:\我的文档\Pictures\201081819581139.jpg").Select End Sub 注：D:\我的文档\Pictures\201081819581139.jpg 这个是我的电脑里的图片，请换成你自己电脑的真实有效的图片路径。2.切换到 Excel 并将...
高手请进!excel 的照相机功能
公式:=INDIRECT("A!$A$2:"&ADDRESS(1+COUNT(A!A:A),(26+COUNT(A!2:2)),4,1))(公式的正确性我就不判断了)插入照相图片后,把"=A!$A$2:$Z$13"修改成"=扩展区域"这个图片会随着A表A列的增加而扩展变大 是这个意思吧？
excel高手请进-用VBA输入编号图片自动显示在excel中
Private Sub CommandButton5_Click() '单击命令按钮 Dim rng As Range, ML, MT, MW, MH, shp As Shape, n%, Myr&, i& On Error Resume Next Sheet1.Activate For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Then shp.Delete End If Next Myr = [a1].CurrentRegion.Row...
EXCEL自动引用 高手请进
假如你在SHEET2的A2输入2，要求在B2、C2、D2显示李四 25 女，那么可以用VLOOKUP 在B2输入公式：=vlookup(a2,sheet1!a:h,column(),0)公式往下往右拉就可以 这样你在A列输入哪个序号，就对应的跟着变 补充：明白你的意思，这个可以实现。在上面的基础上修正一下：比如A1=起始行行号，A2=终止...
excel高手请进:如何动态显示外部图片
设图片所在目录为e:\ex\，图片扩展名为jpg.在你需要操作的表名上按鼠标右键选查看代码，将下列代码填入。然后在A1修改文件名试试。Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = False On Error Resume Next Shapes.SelectAll Selection.ShapeRange.Delete Range("A2")....
excel自动引用数据。。高手请进
选sheet2的a列，输入=sheet1!a1，CTRL+回车 选b列，输入=sheet1!c1，CTRL+回车 选c列，输入=sheet1!d1，CTRL+回车 按你的例子，还有个方法，不需用函数，同时选中sheet1和sheet2，输入数据，完了后删掉sheet2的b列。
高手请进 Excel数据引用问题 在文件2写入货号后,如何在后面零售价和折扣...
假设这2个工作表在同一工作簿下，表名分别为：文件1、文件2 在文件2的D2单元格输入公式 =VLOOKUP($A2,文件2!$A:$F,COLUMN(E1),0)右拉再下拉填充公式即可
高手请进 Excel数据引用 如图 在文件2写入货号后,如何在后面的黄色栏...
文件2的D2单元格输入公式 =VLOOKUP($A2,Sheet1!$A$1:$F$200,COLUMN(E1),0)公式右拉再下拉完成
EXCEL 高手请进,关于单元格引用的问题~
选中编辑栏内需要设置绝对引用的部分，按F4，自己看一下按一次F4和按二次F4和按三次F4有什么变化。
