Скрипт для экспорта графики Spotfire в PowerPoint

Это откроет PowerPoint и экспортирует одну визуализацию на страницу:

from System.IO import *
from Spotfire.Dxp.Application.Visuals import VisualContent
from System.Drawing import Bitmap, Graphics, Rectangle, Point
import clr
clr.AddReference("Microsoft.Office.Interop.PowerPoint")
import Microsoft.Office.Interop.PowerPoint as PowerPoint

powerpoint = PowerPoint.ApplicationClass()
powerpoint.Visible = True
pres=powerpoint.Presentations.Add()
slideCounter = 1

for visual in Document.ActivePageReference.Visuals:
    #print visual.Title

    #export graphic to temp file
    vc = visual.As[VisualContent]()
    bm = Bitmap(2000, 1200)
    g = Graphics.FromImage(bm)
    r = Rectangle(Point(0,0), bm.Size)
    vc.Render(g, r)
    file = Path.GetTempFileName()
    bm.Save(file)

    #pp setup
    slide=pres.Slides.Add(slideCounter, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
    slideCounter = slideCounter+1
    slide.Shapes.AddPicture((file), False, True, 30, 60, 650, 400)
    title=slide.Shapes.Title
    txt=slide.Shapes.AddTextBox(1,10,500,500,100)
    title.Top=0.1
    obj=slide.Shapes.Title.TextFrame.TextRange
    obj.Font.Size=24

Вы можете пролистывать страницы с помощью:

for page in Document.Pages:
    Document.ActivePageReference=page

Скорректировано из кода, найденного здесь: https://tibbr.tibcommunity.com/tibbr/#!/messages/69369

Они находятся в API Spotfire. На каждой странице есть набор визуализаций. Посмотрите на приведенный ниже фрагмент, и вы сможете получить представление.

foreach (Spotfire.Dxp.Application.Page page in SpotfireDocument.Pages) 
allVisuals.AddRange(page.Visuals); 
// in my case SpotfireDocument extends {Spotfire.Dxp.Application.Document}

Но кто-нибудь здесь знает, как визуализировать всю активную страницу? Вышеупомянутый метод даст привязку суб-визуального элемента к активной странице, но не ко всей странице.