Hello Friends,

I have been trying to place a formatted rectange on some specific slide, but I have to use the below two set of code 1) to insert shape, 2) to format shape. Can these two set of codes be merged into one.

Also this code inserts the shape only on the first slide irrespective of which ever slide I am on. Please can someone help me with a code snippet which places the shape on any specific slide we select.

1)
Sub insert_shape()
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape Type:=msoShapeRectangle, Left:=350, Top:=460, Width:=360, Height:=50
End Sub

2)
Sub White_Fill()
With ActiveWindow.Selection.ShapeRange
.Fill.ForeColor.RGB = RGB(255, 255, 255)
.Fill.BackColor.RGB = RGB(255, 255, 255)
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientHorizontal, 1
.Line.Visible = msoFalse
End With
End Sub

Thanks,
Rafael