excel - 如何使用变量设置 OLEObject 名称？

Question

如何重命名 OLEObject？
该对象是嵌入的，并且在其他行中使用时，oname 变量有效，但 .name命令将不起作用。没有错误。

Public Sub insertFiles()
Dim newObject As Object
Dim oname As String
Dim CheckName As String
 
CheckName = UserForm1.MultiPage2.SelectedItem.Caption
oname = CheckName & "_" & "Evidence" & "_" & UserForm1.ProjectName.Value & "_" & Format(Date, "ddmmmyyyy")

Worksheets("Emails").Activate
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Set Rng = ActiveCell
Rng.RowHeight = 70

On Error Resume Next

fpath = Application.GetOpenFilename("All Files,*.*", Title:="Select file")
If LCase(fpath) = "false" Then Exit Sub
    
If UserForm1.ProjectName.Value <> Empty Then
       
    ActiveCell.Value = "."

    ActiveSheet.OLEObjects.Add(Filename:=fpath, _
      Link:=False, _
      DisplayAsIcon:=True, _
      IconFileName:="Outlook.msg", _
      IconIndex:=1, _
      IconLabel:=extractFileName(fpath)).Name = oname
    
    ActiveCell.Offset(0, 1).Value = oname
    UserForm1.Attached1.Value = oname
    ThisWorkbook.Worksheets("Output").Range("B35").Value = oname

    Call UserForm1.Tickbox

    UserForm1.LablePIA.Visible = True
    UserForm1.Attached1.Visible = True
    UserForm1.View.Visible = True
    UserForm1.Deleteemail.Visible = True

    MsgBox "Attachment uploaded"
  
Else
    MsgBox "Project Name must be input before emails can be uploaded"
End If

End Sub

Public Function extractFileName(filePath)
    For i = Len(filePath) To 1 Step -1
        If Mid(filePath, i, 1) = "\" Then
        extractFileName = Mid(filePath, i + 1, Len(filePath) - i + 1)
        Exit Function
        End If
    Next

End Function

解决方案:
字符串变量包含太多字符，显然最大值为 35。

Answer 1

OLEObject 名称不能超过 35 个字符(大概除非您使用类模块等!)。