图表模板文件夹

Question

我开发了一个超级有用的插件，可以重新创建Excel中“断开连接”的图表的源数据。所以我.SaveChartTemplate然后ApplyChartTemplate到新图表，需要删除temp。模板。

不知道如何获取图表模板文件夹。我假设它是Environ("AppData") & "\Microsoft\Шаблоны\Charts\"，但很明显它只适用于俄语语言环境。

Answer 1

在分析了注册表项后，我发现模板文件夹名称可以在HKCU\Software\Microsoft\Office\<OFFICE VERSION>\Common\General\Templates

中找到

假设上述可能的解决方案是

Function chartTemplatesFolder() As String
    On Error GoTo er:
    Dim templatesFolder As String
    templatesFolder = CreateObject("WScript.Shell").RegRead( _
        "HKCU\Software\Microsoft\Office\" & Application.Version & "\Common\General\Templates")
    chartTemplatesFolder = Environ("AppData") & "\Microsoft\" & templatesFolder & "\Charts\"
Exit Function
er:
End Function