Выравнивание графической диаграммы в VBA Word

Question

У меня есть несколько объектов диаграммы в документе Microsoft Word, и я хочу выровнять его по центру, используя код VBA. То, что написано внизу, похоже, работает нормально, потому что оно правильно определяет графические диаграммы, но тогда я не знаю, как это отцентрировать.

Sub CenterChart()
Dim n As Integer, i As Integer
Dim graf As Object
n = Application.ActiveDocument.InlineShapes.Count
If n <> 0 Then
    For i = 1 To n
        Set graf = Application.ActiveDocument.InlineShapes(i)
        If graf.HasChart Then
            'Here the code to align to center 
        Else
        End If
    Next i
End If
End Sub

Answer 1

Поскольку вы используете InlineShapes, команды форматирования такие же, как и для текста - вы используете выравнивание по центру абзаца. Например

    If graf.HasChart Then
        graf.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Else
    End If