Discussion :

[wilfried_42]

Bonjour à tous

J'ai un probleme que je ne comprends pas, la procedure ci-dessous Fonctionne parfaitement sous Excel 2002.

Sous 2007, elle inserres bien une image, mais n'importe ou, neanmoins, avec top et left elle se replace bien dans la cellule
Les 2 lignes en rouge ne s'appliquent pas en version 2007 alors que sur 2002 c'est Ok

Qu'ai je oublié ? et comment puis je remplacer ces 2 lignes pour qu'elles soient Ok aussi bien sur 2007 que sur 2002

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
cellule.Select ' Je selectionne la cellule ou doit se trouver l'image
ActiveSheet.Pictures.Insert(mfc_image).Select ' je cree une image
Selection.ShapeRange.AlternativeText = travail
Selection.Name = "Image" & cellule.Address ' J'identifie l'image pour suppression
Selection.Left = cellule.Left
Selection.Top = cellule.Top
Selection.Width = cellule.Width
Selection.Height = cellule.Height

Merci à vous tous pour votre aide

Cordialement

[tomy7]

t as essaye picturesizemode?

je ne travail pas avec 2007 mais j ai un livre dessus et il parle de sa.

[wilfried_42]

re:

je n'ai pas cette option sur 2007 or c'est sur 2007 que j'ai le probleme quit à controler si je suis sur 2007 ou inferieure, j'aimerais definir la propriete Height et Width d'une Image sur Feuille (Shapes)

Les lignes en rouge ne fonctionnent pas et c'est bizarre.(m'enfin pour moi)

J'ai essaye différentes choses avec l'enregistreur de Macro, ma macro reste definitivement Vide sur les tailles de l'image


Ps: Je commence seulement à vouloir manipuler les images

[tomy7]

pourtant dans mon livre il parle de la propriété picturesizemode pour le control d image

tres rapidement mais ils en parlent.

et c'est "excel 2007 et vba " edition pour les nuls.
c'est pas de la pub c'est juste pr toi ...

[wilfried_42]

re:

J'ai trouvé cette propriété, elle ne fonctionne que sur les Objets controls recevant une image

Or dans mon cas c'est une cellule qui recoit une image et un shape est créé or un Objet Shape n'est pas un Objet valide pour cette Propriété (Dum moins c'est ce que j'ai compris)

[wilfried_42]

re:

J'ai trouvé la solution j'explique :

sur excel 2002, il suffit de definir Width et Height pour changer la taille, sur 2007, ca ne suffit pas il faut enlever un genre de garder les proportions
Pour que l'image aille dans la cellule complete (ense moquant des proportions) : voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If mfc_image > "" Then
   cellule.Select ' Je selectionne la cellule ou doit se trouver l'image
   ActiveSheet.Pictures.Insert(mfc_image).Select ' je cree une image
   Selection.ShapeRange.AlternativeText = travail
   Selection.Name = "Image" & cellule.Address ' J'identifie l'image pour une eventuelle suppression
   With ActiveSheet.Shapes("Image" & cellule.Address)
          .LockAspectRatio = msoFalse
          .Left = cellule.Left
          .Top = cellule.Top
          .Width = cellule.Width
          .Height = cellule.Height
   End With
   If travail > "" Then Selection.OnAction = ActiveWorkbook.Name & "!" & travail ' J'affecte si indiqué, l'interruption sur click
End If

Merci encore et bonne journée

[AlainTech]

Et alors, Wilfried, on oublie le bouton Résolu?

Pô bien cha...