Pb d'image et de shapes

K

Kobaya

XLDnaute Occasionnel

• 11 Janvier 2008

• #2

Re : Pb d'image et de shapes

Salut Eric D,

c'est quoi le problème exactement ? Si c'est juste ".Adjustments(1) = 0.03" qui pose problème, il suffit de supprimer la ligne...

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 11 Janvier 2008

• #3

Re : Pb d'image et de shapes

Bonjour Kobaya,

Si je suprimais toutes les lignes j'aurais encore moins de Pb !!!

Bon Ap
Eric D

 

Vote positif 0 Vote négatif

K

Kobaya

XLDnaute Occasionnel

• 11 Janvier 2008

• #4

Re : Pb d'image et de shapes

ouais, c'est sûr...

Deux autres remarques, toutefois :

1. Dim sh, sh2 As Shape

   Cliquez pour agrandir...

   déclare sh comme Variant et sh2 comme Shape (cf. aide vba)
2. si on déclare une variable objet avec Set, ne jamais oublier de libérer, à la fin de la procédure, la mémoire utilisée par l'objet par Set Objet = Nothing

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Janvier 2008

• #5

Re : Pb d'image et de shapes

Bonjour Eric, Kobaya

à ma connaissance la propriété "Adjustments" n'est pas valide pour une image, ce n'est pas le même "type" que la forme automatique :

cf aide vba

Chaque objet Shape représente un objet de la couche de dessin, tel qu'une forme automatique, une forme libre, un objet OLE ou une image.

Cliquez pour agrandir...

et les propriétés peuvent différées d'un type à un autre.

bonne soirée
@+

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 12 Janvier 2008

• #6

Re : Pb d'image et de shapes

Bonsoir, Bonjour Kobaya, Pierrot93,

Merci pour cette précision Kobaya.

Je me doutais de cette réonse Pierrot93, ds ce cas comment mettre un image ds une forme automatique ?
Merci pour ton aide.

Eric D

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 12 Janvier 2008

• #7

Re : Pb d'image et de shapes

bonjour

comment mettre un image ds une forme automatique ?

Cliquez pour agrandir...

Code:

Sub InsertionImage_DansShape()
    Dim strImage As String
    Dim Sh As Shape
    
    'Représente la premiere forme de la Feuil1
    Set Sh = Feuil1.Shapes(1)
    
    strImage = "C:\Documents and Settings\mimi\dossier\fourmiz.JPG"
    Sh.Fill.UserPicture strImage
End Sub

Bon week end
MichelXld

 

Vote positif 0 Vote négatif

E

Eric D

XLDnaute Occasionnel

• 12 Janvier 2008

• #8

Re : Pb d'image et de shapes

Bonsoir MichelXld,

Je te remercie pour cette précieuse info.

Comme je démarre à créer des shapes, je ne sais pas trop m'en dépatouiller, comme tjs quand on commence qqc.
Bonne soirée
Eric D

 

Vote positif 0 Vote négatif