E
Eric D
Guest
Bonjour à toutes et à tous,
je crée une forme automatique:
Dim Shp As Shape
Set Shp = Sheets('Feuil1').Shapes.AddShape(msoShapeRectangle, 369, 12, 342, htr)
et je voudrait lui donner une couleur de fond:
Shp.Fill.BackColor.RGB = RGB(0, 255, 255)
ou mettre une image:
Shp.Fill.Picture = LoadPicture('C:\\Monimage.jpg')
mais rien y fait. J'ai une autre forme automatique avec le même Pb:
Set mydocument = ActiveSheet
With mydocument.Shapes.AddShape(msoShapeRectangle, 369, 12, 342, htr).Shadow
...
End With
Merci pour votre aide et bon Samedi.
Eric D
je crée une forme automatique:
Dim Shp As Shape
Set Shp = Sheets('Feuil1').Shapes.AddShape(msoShapeRectangle, 369, 12, 342, htr)
et je voudrait lui donner une couleur de fond:
Shp.Fill.BackColor.RGB = RGB(0, 255, 255)
ou mettre une image:
Shp.Fill.Picture = LoadPicture('C:\\Monimage.jpg')
mais rien y fait. J'ai une autre forme automatique avec le même Pb:
Set mydocument = ActiveSheet
With mydocument.Shapes.AddShape(msoShapeRectangle, 369, 12, 342, htr).Shadow
...
End With
Merci pour votre aide et bon Samedi.
Eric D