图表模板文件夹

Question

我开发了一个超级有用的插件，它可以为来自 Excel 的图表 "disconnected" 重新创建源数据。所以我 .SaveChartTemplate 然后 ApplyChartTemplate 到一个新图表，并且需要删除临时表。模板。

不知道如何获取图表模板文件夹。我假设它是 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

图表模板文件夹

Charts template folder

powerpoint

vba

ms-office