Sdílet prostřednictvím

Návod: Automatizace aplikace z vlastního podokna úloh

  • Článek

Tento návod ukazuje, jak vytvořit vlastní podokno úloh, který automatizuje aplikace PowerPoint.Vlastní podokno úloh vloží data do snímku a uživatel klepne MonthCalendar prvek, který je na vlastní podokno úloh.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni aplikace v Outlooku 2013 a v Outlooku 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.

Přestože tento návod používá PowerPoint konkrétně, pojmy prokázat návodu jsou použitelné pro aplikace, které jsou uvedeny výše.

Tento návod ilustruje následující úkoly:

  • Návrh uživatelského rozhraní pro vlastní podokno úloh.

  • Automatizace aplikace PowerPoint z vlastní podokno úloh.

  • Podokno úloh vlastní zobrazení v aplikaci PowerPoint.

[!POZNÁMKA]

Váš počítač může zobrazit jiné názvy nebo umístění pro některé prvky uživatelského rozhraní sady Visual Studio v následujících pokynech.Tyto prvky jsou určeny verzí aplikace Visual Studio a použitým nastavením.Další informace naleznete v tématu Přizpůsobení nastavení pro vývoj v sadě Visual Studio.

Požadavky

Chcete-li dokončit tento návod, potřebujete následující komponenty:

Vytváření projektu doplněk

První krok je vytvořit projekt doplněk pro aplikaci PowerPoint.

Vytvoření nového projektu

Návrh uživatelského rozhraní vlastní podokno úloh

Neexistuje žádný vizuální návrhář pro vlastní podokna úloh, ale můžete navrhnout uživatelský ovládací prvek požadované rozložení.Dále v tomto návodu přidáte uživatelský ovládací prvek vlastní podokno úloh.

Návrh uživatelského rozhraní pro vlastní podokno úloh

  1. Na projektu nabídky, klepněte na Přidat uživatelský ovládací prvek.

  2. V Přidat novou položku dialogovém okně změnit název uživatelského ovládacího prvku MyUserControla klepněte na tlačítko Přidat.

    Uživatelský ovládací prvek se otevře v návrháři.

  3. Z Běžné ovládací prvky kartě nástrojů, přetáhněte MonthCalendar řízení uživatelského ovládacího prvku.

    Pokud MonthCalendar ovládacího prvku je větší než na návrhovou plochu uživatelský ovládací prvek, uživatelský ovládací prvek tak, aby odpovídala velikosti MonthCalendar řízení.

Automatizace aplikace PowerPoint z vlastní podokno úloh

Účelem doplněk je umístit vybrané datum první snímek aktivní prezentace.Použití DateChanged události ovládacího prvku přidat vybrané datum jeho změně.

K automatizaci aplikace PowerPoint z vlastní podokno úloh

  1. V designu poklepejte MonthCalendar řízení.

    MyUserControl.cs nebo MyUserControl.vb soubor otevře a obslužné rutiny události DateChanged vytvořit událost.

  2. Přidejte následující kód na začátku souboru.Tento kód vytvoří aliasy Microsoft.Office.Core a Microsoft.Office.Interop.PowerPoint obory názvů.

    Imports Office = Microsoft.Office.Core
Imports PowerPoint = Microsoft.Office.Interop.PowerPoint

    using Office = Microsoft.Office.Core;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;

  3. Přidejte následující kód do třídy MyUserControl.Tento kód deklaruje Shape objekt jako člen MyUserControl.V následujícím kroku budete používat toto Shape textového pole přidat snímek aktivní prezentace.

    Private TextBox As PowerPoint.Shape

    private PowerPoint.Shape textbox;

  4. Nahradit monthCalendar1_DateChanged obslužnou rutinu následujícím kódem.Tento kód přidá textové pole na první snímek aktivní prezentace a potom přidá aktuálně vybrané datum do textového pole.Tento kód používá Globals.ThisAddIn objekt pro přístup k objektovému modelu aplikace PowerPoint.

    Private Sub MonthCalendar1_DateChanged( _
    ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.DateRangeEventArgs) _
    Handles MonthCalendar1.DateChanged

    Try 
        If TextBox IsNot Nothing Then
            TextBox.Delete()
        End If 

        Dim Slide As PowerPoint.Slide
        Slide = Globals.ThisAddIn.Application.ActivePresentation.Slides(1)
        TextBox = Slide.Shapes.AddTextbox( _
            Office.MsoTextOrientation.msoTextOrientationHorizontal, _
            50, 100, 600, 50)
        TextBox.TextFrame.TextRange.Text = e.Start.ToLongDateString()
        TextBox.TextFrame.TextRange.Font.Size = 48
        TextBox.TextFrame.TextRange.Font.Color.RGB = _
            System.Drawing.Color.DarkViolet.ToArgb()

    Catch ex As Exception
        System.Windows.Forms.MessageBox.Show(ex.ToString())
    End Try 
End Sub

    private void monthCalendar1_DateChanged(object sender, DateRangeEventArgs e)
{
    try
    {
        if (textbox != null)
        {
            textbox.Delete();
        }

        PowerPoint.Slide slide =
            Globals.ThisAddIn.Application.ActivePresentation.Slides[1];
        textbox = slide.Shapes.AddTextbox(
            Office.MsoTextOrientation.msoTextOrientationHorizontal,
            50, 100, 600, 50);
        textbox.TextFrame.TextRange.Text = e.Start.ToLongDateString();
        textbox.TextFrame.TextRange.Font.Size = 48;
        textbox.TextFrame.TextRange.Font.Color.RGB =
             Color.DarkViolet.ToArgb();
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.ToString());
    }
}

  5. V Průzkumníku, klepněte pravým tlačítkem myši MyAddIn projektu a potom klepněte na sestavení.Ověřte, že projekt sestaví bez chyb.

Zobrazení podokna úloh vlastní

Zobrazit vlastní podokno úloh při spuštění doplňku, přidejte uživatelský ovládací prvek podokno úloh v Startup obslužné rutiny v.

Chcete-li zobrazit vlastní podokno úloh

  1. V Průzkumníku, rozbalte PowerPoint.

  2. Klepněte pravým tlačítkem ThisAddIn.cs nebo ThisAddIn.vb a na Zobrazení kódu.

  3. Přidejte následující kód do třídy ThisAddIn.Tento kód deklaruje instance MyUserControl a CustomTaskPane jako členové ThisAddIn třídy.

    Private myUserControl1 As MyUserControl
Private myCustomTaskPane As Microsoft.Office.Tools.CustomTaskPane

    private MyUserControl myUserControl1;
private Microsoft.Office.Tools.CustomTaskPane myCustomTaskPane;

  4. Nahradit ThisAddIn_Startup obslužnou rutinu následujícím kódem.Tento kód vytvoří novou CustomTaskPane přidáním MyUserControl objektu CustomTaskPanes kolekce.Kód také zobrazí podokno úloh.

    Private Sub ThisAddIn_Startup(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Startup

    myUserControl1 = New MyUserControl
    myCustomTaskPane = Me.CustomTaskPanes.Add(myUserControl1, "Calendar")
    myCustomTaskPane.Visible = True 
End Sub

    private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    myUserControl1 = new MyUserControl();
    myCustomTaskPane = this.CustomTaskPanes.Add(myUserControl1, "Calendar");
    myCustomTaskPane.Visible = true;
}

Testování doplněk

Při spuštění projektu aplikace PowerPoint otevře a -v zobrazí vlastní podokno úloh.Klepněte MonthCalendar řízení k testování kódu.

Testování doplněk

  1. Stisknutím klávesy F5 spustit projektu.

  2. Zkontrolujte, zda je vlastní podokno úloh viditelné.

  3. Klepněte na datum v MonthCalendar ovládacího prvku na podokno úloh.

    Datum je vložen do první snímek aktivní prezentace.

Další kroky

Další informace o tom, jak vytvořit vlastní podokna úloh z těchto témat:

Viz také

Úkoly

Postupy: Přidání vlastního podokna úloh do aplikace

Návod: Synchronizace vlastního podokna úloh s tlačítkem na pásu karet

Návod: Zobrazení vlastních podoken úloh s e-mailovými zprávami v aplikaci Outlook

Další zdroje

Vlastní podokna úloh