[已解决]难道插入照片的名字不能是文本和数字的组合？！

hwc2ycy

liwenhong 发表于 2014-4-9 12:52
这么快就得到您的回复，真是太谢谢您了！

shp.type应该是msoLinkedPicture
你可以直接用
for each shp in activesheet.shapes
    stop
next
然后观察本地窗口中shp.type属性的值。

hwc2ycy

hwc2ycy

msoLinkedPicture 11 链接图片。
msoOLEControlObject 12 OLE 控件对象，工作表中的按钮

liwenhong

hwc2ycy 发表于 2014-4-9 13:44
msoLinkedPicture 11 链接图片。
msoOLEControlObject 12 OLE 控件对象，工作表中的按钮

当一个职工没有照片时，想要删除前一个照片.rar (27.76 KB, 下载次数: 5)

2014-4-9 14:22 上传

点击文件名下载附件

还是上传附件吧，麻烦您再看看

想要的效果：当再次点击“插入照片”按钮，而此时没有这个职工的照片时，一方面要转到结束（不要任何提示），另外还要删除前一名职工的照片。

hwc2ycy

1. Sub zhaopian()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         'If shp.Type = msoPicture Then shp.Delete '插入图片前，删除所有图片
   
5.         If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
   
6.             shp.Delete
   
7.         End If
   
8.     Next
   
9.    
   
10.     On Error Resume Next
    
11.     Application.EnableEvents = False
    
12.     Dim str$, pic As Picture
    
13.     str = ThisWorkbook.Path & "\职工照片" & Range("B3") & Range("D2") & ".jpg"
    
14.     If Len(Dir(str)) Then
    
15.         With Sheet1
    
16.             .Range("H3").Select
    
17.             Set pic = .Pictures.Insert(ThisWorkbook.Path & "\职工照片" & Range("B3") & Range("D2") & ".jpg")
    
18.             With pic
    
19.                 .Height = Range("H3").MergeArea.Height
    
20.                 .Width = Range("H3").MergeArea.Width
    
21.                 .Left = Range("h3").MergeArea.Left
    
22.                 .Top = Range("h3").MergeArea.Top
    
23.             End With
    
24.         End With
    
25.     End If
    
26.     Application.EnableEvents = True
    
27. End Sub

复制代码

liwenhong

hwc2ycy 发表于 2014-4-9 14:39

问题彻底解决，万分感谢hwc2ycy的无私帮助！您辛苦可，谢谢您！