[已解决]求助：这是什么意思？

爱疯

gmshe58 发表于 2011-11-15 21:46
再问：如果图片是在某一文件夹下，怎么变更代码？

P = "c:\a\123\"

把 "c:\a\123\" 换成你的图片文件路径

gmshe58

爱疯 发表于 2011-11-15 15:34
出错原因：
1、无shape对象
2、路径改变后，无效。

谢谢。你写的这段宏比较好理解，但是，路径错误了（或者有路径无照片）。怎么改写为好？出错要调试比较烦人。

爱疯

gmshe58 发表于 2011-11-19 11:58
谢谢。你写的这段宏比较好理解，但是，路径错误了（或者有路径无照片）。怎么改写为好？出错要调试比较烦 ...

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim r As Integer, c As Integer
   
4.     Dim p As String, f As String
   
5.     r = Target.Row
   
6.     c = Target.Column
   
7.     p = "c:\123"
   
8.     If Dir(p) <> "" Then
   
9.         If r > 1 And c = 2 And Cells(r, c + 1) <> "" Then
   
10.             f = Cells(r, c + 1)    '所选的右边单元格
    
11.         Else
    
12.             f = "无照片.jpg"    '空路径时
    
13.         End If
    
14.         '这里是向自选图形里填充图片文件（文件路径是p & f)
    
15.         Shapes(1).Fill.UserPicture p & f
    
16.     Else
    
17.         MsgBox "路径错误，或没有图片。", vbExclamation, "提示"
    
18.     End If
    
19. End Sub

复制代码

gmshe58

爱疯 发表于 2011-11-19 14:17

12.rar (25.95 KB, 下载次数: 0)

2011-11-19 22:52 上传

点击文件名下载附件 不对呀，点击各个姓名，还出现调试框。不出行提示框。