Create a shape with a predefined format?

[elunicotomas]

Hi there, Im trying to create a macro that paste "flags" (shapes of different colors) to clasify the slides of a presentation.

I´m totally new to VBA. I managed to create a rectangular shape in the TOP RIGHT corner of the current slide, but it create a blue shape with blue border, and i want this shape to be red, 35% transparency and no border.

Is there any way to pre-define the format of the shape before creating it? or should I change the shape´s format once it´s created?

Thanks!

Sub AZ_Banderitas() 
     'if there´s no slide selected the shape will be pasted in the previous slide
    On Error Resume Next 
    Err.Clear 
    Debug.Print "The current slide is Slide " & ActiveWindow.View.Slide.SlideIndex 
    If Err <> 0 Then 
        ActiveWindow.ViewType = ppViewNotesPage 
        ActiveWindow.ViewType = ppViewNormal 
        Debug.Print "The current slide is Slide " & ActiveWindow.View.Slide.SlideIndex 
    End If 
     
     'creates shape
    slideLocation = ActiveWindow.View.Slide.SlideIndex 
     
    myDocument.Shapes.AddShape Type:=msoShapeRectangle, Left:=570, Top:=0, width:=150, Height:=100 
     
End Sub 

VBA tags courtesy of www.thecodenet.com

[elunicotomas]

I´ve changed the code a bit..

Sub AZ_Banderitas() 
     'if there´s no slide selected the shape will be pasted in the previous slide
    On Error Resume Next 
    Err.Clear 
    Debug.Print "The current slide is Slide " & ActiveWindow.View.Slide.SlideIndex 
    If Err <> 0 Then 
        ActiveWindow.ViewType = ppViewNotesPage 
        ActiveWindow.ViewType = ppViewNormal 
        Debug.Print "The current slide is Slide " & ActiveWindow.View.Slide.SlideIndex 
    End If 
     
     'creates shape
    slideLocation = ActiveWindow.View.Slide.SlideIndex 
     
    Set myDocument = ActivePresentation.Slides(slideLocation) 
     
    Dim shp As Shape 
     
    Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) 
     
End Sub 

VBA tags courtesy of www.thecodenet.com

[Cosmo]

Creating a new shape will use the default properties for that shape. If you want it to always be a certain color (or change any other property) when you run the code, then you should set the properties after creating it.

Dim shp As Shape 
 
Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) 
shp.Fill.ForeColor.RGB = RGB(255, 0, 0) 

VBA tags courtesy of www.thecodenet.com

If you have multiple properties you can set them like this:

Dim shp As Shape 
 
Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) 
With shp 
    .Fill.ForeColor.RGB = RGB(255, 0, 0) 
    .Height = 200 
     '... and any other properties here
End With 

VBA tags courtesy of www.thecodenet.com

Otherwise, your script will always use whatever are set as the default shape properties when the script runs.

[elunicotomas]

Quote:   Originally Posted by: Cosmo Creating a new shape will use the default properties for that shape. If you want it to always be a certain color (or change any other property) when you run the code, then you should set the properties after creating it. Dim shp As Shape Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) shp.Fill.ForeColor.RGB = RGB(255, 0, 0) VBA tags courtesy of www.thecodenet.com If you have multiple properties you can set them like this: Dim shp As Shape Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) With shp .Fill.ForeColor.RGB = RGB(255, 0, 0) .Height = 200 '... and any other properties here End With VBA tags courtesy of www.thecodenet.com Otherwise, your script will always use whatever are set as the default shape properties when the script runs.

Thanks! That worked, now im trying to put some text in those boxes...

Set myDocument = ActivePresentation.Slides(slideLocation) 
 
Dim shp As Shape 
 
Set shp = myDocument.Shapes.AddShape(msoShapeRectangle, 570, 0, 150, 100) 
 
With shp.Fill 
    .Transparency = 0.35 
    .Visible = msoTrue 
    .ForeColor.RGB = RGB(255, 0, 0) 
    .Solid 
End With 
 
With shp.Line 
    .Visible = msoFalse 
End With 

VBA tags courtesy of www.thecodenet.com

[Cosmo]

shp.TextFrame.TextRange.Text = "Enter your text here" 

VBA tags courtesy of www.thecodenet.com

[elunicotomas]

Quote:   Originally Posted by: Cosmo shp.TextFrame.TextRange.Text = "Enter your text here" VBA tags courtesy of www.thecodenet.com

Thanks again!