|
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim r As Integer, c As Integer
- Dim p As String, f As String
- r = Target.Row
- c = Target.Column
- p = ThisWorkbook.Path & ""
- If r > 1 And c = 2 And Cells(r, c + 1) <> "" Then
- f = Cells(r, c + 1) '所选的右边单元格
- Else
- f = "无照片.jpg" '空路径时
- End If
- '这里是向自选图形里填充图片文件(文件路径是p & f)
- Shapes(1).Fill.UserPicture p & f
- End Sub
复制代码 出错原因:
1、无shape对象
2、路径改变后,无效。
Ld1Bymed.zip
(10.44 KB, 下载次数: 4)
|
|