VBA Powerpoint - Adicione um Shape ao Slide e o formate - Add and Format Shapes Using PPT.ColorFormat.Brightness

| Blog Office VBA | Blog Excel | Blog Access |

Microsoft ® Office nos dá ferramentas necessárias para criar aplicativos poderosos. Os exemplos de Microsoft Visual Basic for Applications (VBA) podem nos ajudar a criar seus próprios aplicativos que executam funções específicas ou como um ponto de partida para criar soluções mais complexas.

Este exemplo mostra como selecionar o primeiro slide de uma apresentação do Microsoft PowerPoint, adicionar um Shape a ele, e depois mudar o brilho do Shape na propriedade foreground (primeiro plano).

Cada amostra de código é composto de cerca de 5 a 50 linhas de código que demonstram uma característica diferente ou um conjunto de recursos, tanto em VBA como em VB ou C# (criado no Visual Studio 2010). Os comentários explicarão como configurar o ambiente para que o código seja executado.

Sub TestBrightness() 

    Dim i As Integer 

    Dim shp As Shape 

    Dim sld As Slide 

    

    Set sld = ActivePresentation.Slides(1) 

    

    ' Add a new shape: A 200x100 pixel balloon, and set its color: 

    Set shp = sld.Shapes.AddShape(msoShapeBalloon, 10, 10, 200, 100) 

    shp.Fill.ForeColor.RGB = 3487637 

    

    ' Finally, alter the Brightness of the color. Do not use 

    ' this technique to create animations--PowerPoint handles 

    ' that itself. This is meant only as instructive code that 

    ' demonstrates how modifying the Brightness property 

    ' changes the way a shape looks. 

    For i = 0 To 100 

        SetBrightness shp, i / 100 

        ' Wait 1/10 second or so. 

        Pause 0.1 

    Next i 

End Sub 

Sub SetBrightness(shp As Shape, brightnessValue As Single) 

    ' Set the Brightness property of a ColorFormat object. 

    ' You can retrieve a ColorFormat in a number of ways. 

    ' See this page for more information on ways to retrieve 

    ' a reference to a ColorFormat object: 

    ' http://msdn.microsoft.com/en-us/library/ff744611.aspx 

    

    Dim cf As ColorFormat 

    Set cf = shp.Fill.ForeColor 

    cf.brightness = brightnessValue 

End Sub 

Function Pause(numberOfSeconds As Variant) 

    Dim startTime, endTime As Variant 

    startTime = Timer 

    endTime = startTime + numberOfSeconds 

    

    Do While Timer < endTime 

        DoEvents 

    Loop 

End Function 

Anexos:

PPT.ColorFormat.Brightness.txt

Office 2010 101 Code Samples.zip

Tags: VBA, Powerpoint, Add, Format, Shapes, Brightness, color