objplotconfiguration.ConfigName = objlayout.ConfigName出现错误，请指教！

hdslj

Public Sub sf()
Dim objlayout As AcadLayout
Dim objplotconfiguration As AcadPlotConfiguration
Set objlayout = ThisDrawing.ActiveLayout

objplotconfiguration.ConfigName = objlayout.ConfigName

End Sub
  

运行时红色那句出现错误 “运行时错误91 对象错误或者with块变量未设置”

何解？

已解决，请版主删帖!