VBA Powerpoint - изменение названий категорий - PullRequest
Новая
       17

VBA Powerpoint - изменение названий категорий

0 голосов
/ 24 июня 2018

Я пытаюсь изменить имена категорий существующей диаграммы в PowerPoint VBA с помощью приведенного ниже кода, но вместо этого названия категорий удаляются из диаграммы. 

Dim mCatArray() As String
lngSeries = 0
Dim testvar As Variant

'Get the existing category names in an Array
'oSh = Shape element
For Each testvar In oSh.Chart.Axes(xlCategory).CategoryNames
    strIn = ProperCaps(testvar & "", objRegex)
    ReDim Preserve mCatArray(lngSeries)

    'Do my changes and insert the category name in the Array
    mCatArray(lngSeries) = strIn

    lngSeries = lngSeries + 1
Next

'Assign the Changed Category array back - METHOD 1
For lngSeries = 1 To .Chart.SeriesCollection.Count
   oSh.Chart.SeriesCollection(lngSeries).XValues = mCatArray
Next

'Assign the Changed Category array back - METHOD 2
   oSh.Chart.Axes(xlCategory).CategoryNames = mCatArray

Оба метода, похоже, не помогают. Любая помощь приветствуется.

...