如何使用主模块中Microsoft PowerPoint对象模块中声明的变量值

• 将4个参数传递给 Refresh_Charts
• 顺便说一句, Dim SRngCTSS, SRngClt As String 声明 SRngCTSS 作为一个 Variant 变量您的代码片段中有几个实例。

Public Sub Refresh_Charts(SRngCTSS As String, SRngClt As String,  SRngHub As String,  SRngCTSS As String)
'...'
xlWS.Range("E4").Value = SRngMkt <------- This line is working but Slide2146449163 should be dynamic
xlWS.Range("J4").Value = SRngClt
xlWS.Range("O4").Value = SRngHub
xlWS.Range("T4").Value = SRngCTSS
'...'
End Sub


Public Sub cmd_Ink_CEE_Germany_Click()
    ' Use local variables
    Dim SRngCTSS As String, SRngClt As String, SRngHub As String, SRngCTSS As String
    SRngMkt = "CENTRAL & EASTERN EUROPE"
    SRngClt = "*"
    SRngHub = "Germany"
    SRngCTSS = "Included"
    ' pass arguments to Refresh_Charts
    Call Refresh_Charts(SRngCTSS, SRngClt,  SRngHub,  SRngCTSS)

End Sub