以編程方式在Excel中的SmartArt上訪問「從右到左」

Question

我正在開發使用VSTO的Excel加載項，並且該工具生成的其中一個報表具有SmartArt作爲輸出。眼下輸出爲：

而且我所要的輸出是：

我知道，Excel有此命令，但這正是它：

但我不能用VBA或C＃來訪問它。

在此先感謝您的幫助！

Answer 1

我相信你需要辦公室2010或2013來做到這一點。

我使用的代碼，以獲得該圖的名稱（在我的情況，「圖1」）來源：

http://www.ozgrid.com/VBA/shapes.htm（雖然我想你可以找到一個更好的方法）

然後稍微修改了代碼從：

http://social.msdn.microsoft.com/Forums/office/en-US/b6af1478-045b-40b1-b05c-2cb95aa2127e/excel-2007-smart-art-manipulate-text-using-vba?forum=exceldev

Sub test() 
    Dim sh As Shape 
    Dim sa As SmartArt 
    Set sh = ActiveWorkbook.ActiveSheet.Shapes("Diagram 1") 
    With sh 
     .Select 
     Set sa = .SmartArt 
     sa.Reverse = msoTrue 
    End With 
End Sub 

即， '左到右的' 是 '反向' 屬性。參見：

http://msdn.microsoft.com/en-us/library/office/microsoft.office.core.smartart.reverse%28v=office.15%29.aspx