Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$Q$10" Then Exit Sub
Dim str$
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture _
ThisWorkbook.Path & "\" & Range("Q10").Value & ".jpg"
ActiveCell.Select
End Sub
把红色的去除,只要改变就变化,或者对应要变化的单元格,如AB1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$Q$10" Then Exit Sub
Dim str$
On Error Resume Next
ActiveSheet.Shapes("pic").Select
Selection.ShapeRange.Fill.UserPicture _
ThisWorkbook.Path & "\" & Range("Q10").Value & ".jpg"
ActiveCell.Select
End Sub
把红色的去除,只要改变就变化,或者对应要变化的单元格,如AB1