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

Inline image 1


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: 
    
    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:




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


Nenhum comentário:

Postar um comentário

diHITT - Notícias