Discussion :

[ncl98]

Bonjour,
Après avoir copier une image dans une cellule, je souhaite la renommer, la centrer et enfin lui attribuer la propriété xlMoveAndSize.

Le code que j'ai écrit me renvoie les erreurs :

- "Propriété ou méthode non géré par cet objet" à la ligne "Selection.Placement = xlMoveAndSize"
- (en omettant la ligne de code ci-dessus) "Impossible de lire la propriété Pictures de la classe Worksheet" à la ligne "With ActiveSheet.Pictures("bSuppr")". Si je remplace Pictures" par "Shapes" le message d'erreur est "L'élément portant ce nom est introuvable".

Voici mon 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
15
16
Option Explicit
Sub Copier_Image()
 
Dim fichier As String
 
 fichier = "C:\Program Files\Microsoft Office\MEDIA\OFFICE14\Bullets\BD14755_.gif"
        ActiveSheet.Pictures.Insert fichier
        'ActiveSheet.Pictures.Select
        Selection.Name = "bSuppr"
        'Selection.Placement = xlMoveAndSize
        With ActiveSheet.Shapes("bSuppr")
            .Left = ActiveCell.Left + (ActiveCell.Width / 2) - (.Width / 2)
            .Top = ActiveCell.Top + (ActiveCell.Height / 2) - (.Height / 2)
        End With
 
End Sub

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait à peu près convenir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Copier_Image()
   Dim sFichier As String
   Dim kLeft As Long, kTop As Long, kWidth As Long, kHeight As Long
   sFichier = "C:\Chemin\image.jpg"
   With ActiveCell
      kLeft = .Left
      kTop = .Top
      kWidth = .Width
      kHeight = .Height
   End With
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, kLeft, kTop, kWidth, kHeight).Select
   With Selection
      .Name = "bSuppr"
      .Placement = xlMoveAndSize
   End With
   With ActiveSheet.Shapes("bSuppr").Fill
      .UserPicture sFichier
   End With
End Sub

Bonne continuation.

P.S. L'image chargée dans le Shape est conservée dans le fichier Excel.

[ncl98]

Bonjour à tous
Merci EricDgn. Je suis parti sur une autre méthode mais je compte m'inspirer de ta proposition pour solutionner une dernier blocage (modifier la propriété de l'image).
On se tient au courant.