在工作表中.Pictures.Insert插入图片时，个别图片提示“无法设置类pictrue的Name属性

lpzxhjp

1. <div class="blockcode"><blockquote>Sub 添加图片()
   
2.     Dim Fullname As String, FileType As String, FileName As String, FileShuoMing As String
   
3.     Fullname = Application.GetOpenFilename("图片文件(*.jpg;*.bmp;*.gif;*.png),*.jpg;*.bmp;*.gif;*.png", 1, "选择图片")
   
4.     If Fullname = "False" Then Exit Sub
   
5.     FileType = Right(Fullname, Len(Fullname) - InStrRev(Fullname, "."))
   
6.     If FileType <> "jpg" And FileType <> "bmp" And FileType <> "gif" And FileType <> "png" Then
   
7.         MsgBox "选择的图片格式错误或不是图片文件！", , "温馨提示："
   
8.         Exit Sub
   
9.     End If
   
10.     FileName = Right(Fullname, Len(Fullname) - InStrRev(Fullname, ""))
    
11. With ThisWorkbook.Sheets("WW")
    
12.         If IsEmpty(ThisWorkbook.Sheets("WW").Range("a1")) Then
    
13.             .Range("a1") = FileName
    
14. Else
    
15.             .Range("a65536").End(xlUp).Offset(1, 0) = FileName
    
16. End If
    
17.         .Pictures.Insert(Fullname).Name = FileName
    
18.     End With
    
19. End Sub

复制代码

Sub 添加图片()
    Dim Fullname As String, FileType As String, FileName As String, FileShuoMing As String
    Fullname = Application.GetOpenFilename("图片文件(*.jpg;*.bmp;*.gif;*.png),*.jpg;*.bmp;*.gif;*.png", 1, "选择图片")
    If Fullname = "False" Then Exit Sub
    FileType = Right(Fullname, Len(Fullname) - InStrRev(Fullname, "."))
    If FileType <> "jpg" And FileType <> "bmp" And FileType <> "gif" And FileType <> "png" Then
        MsgBox "选择的图片格式错误或不是图片文件！", , "温馨提示："
        Exit Sub
    End If
    FileName = Right(Fullname, Len(Fullname) - InStrRev(Fullname, "\"))
With ThisWorkbook.Sheets("WW")
        If IsEmpty(ThisWorkbook.Sheets("WW").Range("a1")) Then
            .Range("a1") = FileName
Else
            .Range("a65536").End(xlUp).Offset(1, 0) = FileName
End If
        .Pictures.Insert(Fullname).Name = FileName
    End With
End Sub
用上面的代码在工作表中插入图片时，图片名为“6d81800a19d8bc3e55adf77e878ba61ea9d345d9”一类的图片时，提示“无法设置类pictrue的Name属性，其他简单名称的图片没问题。大神看看为什么？谢谢。

lpzxhjp

自己顶一下

lpzxhjp

问题自己解决了，就是不知道为什么？为什么excel的名称框中的字符不能超过31个？