Comment changer une image ds une forme automatique

[Eric D]

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

 

[Brigitte]

Bonjour,

Ce fil était doublonné. Je vous invitais à rester ici.

Plus besoin de vous y inviter puisque Pascal a pris les choses en main.

Bonne fin de we à tous.

Message édité par: Brigitte, à: 06/05/2006 13:19

 

[Eric D]

Bonjour Brigitte,

Cela a été une maladresse de ma part. Désolé.

Eric D

 

[porcinet82]

Salut Eric, Salut Brigitte,

Je me permet de repondre ici et pas sur le lien que tu as donné Brigitte puisque ce fil est plus recent et n'est pas vierge, donc je me suis dit que Pascal pourarit eventuellement passé et supprimer l'autre.

Donc un essais de reponse pour Eric, je pense qu'il faut tout d'abord selectionner l'objet, d'ou la première ligne, et ensuite je me suis apercu avec l'enregistreur de macro que cette ligne Selection.ShapeRange.Fill.Visible = msoTrue etait necessaire, meme si je ne sais pas trop a quoi elle sert.

Dim Shp As Shape
Set Shp = Sheets('Feuil1').Shapes.AddShape(msoShapeRectangle, 369, 100, 342, htr)
    ActiveSheet.Shapes(Shp.Name).Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
    'le fond du rectangle
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 40
    'le tour du rectangle

@+

 

[PascalXLD]

Re:Comment changer une image ds une forme automati

Bonjour

Doublon supprimé