不支持地图图表的 VBA“ClearToMatchStyle”方法可能的错误

问题描述

将“ClearToMatchStyle”用于地图图表 (xlRegionMap) 时是否存在已知错误？因为我得到：
Run-time error '445':
Object doesn't support this action

对于其他类型的图表（例如 xlColumnClustered 或 xlLineMarkers），使用此方法没有问题。如果不支持，有什么替代方案？

Dim TWobj As Object: Set TWobj = ThisWorkbook
Dim shObj  As Object: Set shObj = TWobj.Worksheets("Sheet1")
'201,xlColumnClustered
'332,xlLineMarkers
'494,xlRegionMap
With shObj.Shapes.AddChart2(494,xlRegionMap).Chart
    .ClearToMatchStyle
    .ChartStyle = 257
    .HasTitle = True
    .ChartTitle.Text = "Title"
End With

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel-charts vba