Discussion :

[nanousik]

Bonjour,

J'ai une macro me permettant d'insérer automatiquement une image sur une plage de cellule prédéfinis.
Je souhaite que cette macro applique un effet à l'image => qu'elle ai les bords arrondis.

Voici ma macro d'insertion:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub InsertionImage(Emplacement)
    Dim Img As Object
    Dim ShapeObj As Shape
 
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 
        With Img.ShapeRange
            'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
            .Name = "nomImg"
            ' Conserve les proportions d'origine lors du redimensionnement
            .LockAspectRatio = msoTrue
            ' Définit l'emplacement
            .Left = Emplacement.Left
            .Top = Emplacement.Top
 
            If .Width > .Height Then
                ' Définit la largeur
                .Width = Emplacement.Width
                If .Height > Emplacement.Height Then
                    ' Définit la hauteur
                    .Height = Emplacement.Height
                End If
            Else
                ' Définit la hauteur
                .Height = Emplacement.Height
                If .Width > Emplacement.Width Then
                    ' Définit la largeur
                    .Width = Emplacement.Width
                End If
            End If
        End With
    End If
 
End Sub

Si l'un d'entre vous a une idée de comment faire elle est la bienvenue

Merci d'avance

[Marc-L]

Bonjour,

s'il y a la possibilité de le faire manuellement via les propriétés de l'image,
alors l'effectuer en utilisant l'Enregistreur de macros livre le code immédiatement !

[nanousik]

C'est ce que j'ai fais mais aucun code n'est retourné

[Marc-L]

Te reste alors la recherche dans l'aide de l'objet concerné laquelle de ses propriétés correspond …

Sinon si c'est un objet Shape, dès sa création son type peut être précisé, voir l'aide de la méthode AddShape …

[nanousik]

Merci pour ton aide j'ai donc trouvé en regardant l'aide de la méthode

Code :

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

addShape

Si ça peut aider certains voici le code qui arrondi mon image:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim Img As Object
 
If Application.Dialogs(xlDialogInsertPicture).Show Then
     Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 
     With Img.ShapeRange
         ' Arrondi les bords de l'image
         .AutoShapeType = msoShapeRoundedRectangle
     End With
End If

[boisgontierjacques]

Bonjour,

Cf exemple en PJ

Jacques Boisgontier