1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub TiTest()
Dim i As Integer, r As Byte, g As Byte, b As Byte, gauche As Integer, haut As Integer
For i = 1 To 255
gauche = gauche + 2
haut = haut + 1
ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, gauche, haut, 70, 200).Select
ActiveWindow.Selection.TextRange.Text = "blabla"
ActiveWindow.Selection.ShapeRange.Fill.Visible = msoTrue
r = r + 1
g = g + 1
b = b + 1
ActiveWindow.Selection.TextRange.Text = "r=" & r & vbCr & "g=" & g & vbCr & "b=" & b
ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(r, g, b)
DoEvents
Next
End Sub |