|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
你好前辈!
以下是双击C8单元格并回车后,R3:S11区域导入一张和C8相同名称的照片。想请你帮忙修改成:Sheet2工作表C8单元格用公式自动引用其他单元格内容后,R3:S11区域自动导入一张和C8单元格相同名称的照片(也就是自动导入),跪谢!
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
With Sheet2
If Target.Address <> .Cells(8, 3).Address Then Exit Sub
Const stL1 As String = "A1:Q2"
Const stSize1 As String = "R3:S11"
Const stName1 As String = "教职工照片"
.Shapes(stName1).Delete
.Shapes.AddPicture _
(ThisWorkbook.Path & "\教职工照片\" & Target.Value & ".png"), _
True, True, _
.Range(stL1).Width, _
.Range(stL1).Height, _
.Range(stSize1).Width, _
.Range(stSize1).Height
.Shapes(1).Name = stName1
End With
Application.ScreenUpdating = True
End Sub
|
|