Discussion :

[patyom]

Bonjour, edelweisseric.

Ne connaissant pas trop les coutumes de ce site j'avais posté une réponse dans une discussion "Résolu" et sur les conseils d'edelweisseric, je réitère celle-ci dans un nouveau post.

C'était à propos d'import automatique d'images dans une feuille. Quand j'importe mes images, je ne suis pas arrivé à ajouter un cadre autour. En fait, je ne sais pas sélectionner cet import pour ensuite lui appliquer des modifications de style à l'image dans la foulée.

Une idée ?

Merci a+

Ps : Je connais bien VBA Excel, je l'avais délaissé un peu au profit de RealBasic et en surfant dans pas mal de discussion Excel, je me suis aperçu qu'il étaient complémentaires sur certains point surtout sur la facilité de traitement des cellules. Petite précision, Je suis un adepte de MAC.
Bonne journée !!!

[Invité]

Bonjour

Plusieurs questions pour éclaircir ton problème.

La version d'Excel (Mac ou PC) ?
Comment importes-tu tes images ? Manuellement ? Par code ?

Si c'est par code, ce serait bien de nous le mettre.

Philippe

[patyom]

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
'
    ' Initialisations
    ' ************************************************************
    Worksheets("0845-0920").Activate
    PositionGraph = 0
 
    '
    ' Boucle de traitement pour trouver la position horizontale du graph
    ' ************************************************************
    For Each c In Range("a1:X1")
 
    '
    ' Addition des largeurs de colonne
    ' ************************************************************
     PositionGraph = PositionGraph + c.Width
 
    Next c
 
    '
    ' Création de la plage nommée "toto"
    ' ************************************************************
    ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:= _
        "='0845-0920'!" & Selection.Address(ReferenceStyle:=xlR1C1)
 
    '
    ' Raz Picture présentes
    ' ************************************************************
    Dim img As Shape
 
    '
    ' Boucle de Raz
    ' ************************************************************
    For Each img In Worksheets("0845-0920").Shapes
 
    '
    ' Sélection des Pictures seules
    ' ************************************************************
     If img.Name Like "Picture*" Then
        img.Delete
     End If
 
    Next
 
    '
    ' Suppression du fond orange de la colonne
    ' ************************************************************
    Columns("T:T").Select
    Selection.Interior.ColorIndex = xlNone
 
    '
    ' Sélection de la plage choisie (toto)
    ' ************************************************************
    Range("toto").Select
 
    '
    ' Début de traitement des nouvelles images
    ' ************************************************************
    '
    ' Initialisations
    ' ************************************************************
    Saut = 0
    HauteurGraph = 80
 
    '
    ' Boucle de traitement de chaque ligne de la sélection
    ' ************************************************************
    For Each c In Selection
 
    '
    ' Test de présence d'une valeur
    ' ************************************************************
        If c.Value <> "" Then
 
    '
    ' Coloriage fond de la cellule (45 = orange)
    ' ************************************************************
            With c.Interior
                .ColorIndex = 45
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
            End With
 
    '
    ' Extraction du jour en format AAMMJJ
    ' ************************************************************
        Datejour = c.Value
 
    '
    ' Contrôle de la longueur de la date
    ' ************************************************************
        If Len(Datejour) = 5 Then Datejour = "0" & Datejour
 
    '
    ' Sélection du graphique dans le dossier "GRAPHIQUE" et affichage
    ' ************************************************************
        Worksheets("0845-0920").Shapes.AddPicture "Macintosh HD:Users: ... :GRAPHIQUE:" _
            & Datejour, True, True, PositionGraph + 10, (5 * c.RowHeight) + Saut, 200, HauteurGraph
 
      -----> code à insérer  ici après la dite selection
 
    '
    ' Incrémentation de Saut
    ' ************************************************************
            Saut = Saut + HauteurGraph + 5
 
        End If
 
    Next c

Excusez-moi mais j'aime bien commenter mes codes et les aérés

Alors le code de modif des images et insérer juste après le "AddPicture"

Voilà !

Excel Mac 2004 Version 11.0

[Invité]

Re

Attention, code sous Excel 2007, donc pour Mac ?

Il faut que tu déclares une variable de type Shape à laquelle tu affectes ton image, et ensuite tu peux travailler avec.

Voici un petit exemple à adapter à ton case, qui crée un cadre autour d'une image.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub test()
    Dim shp As Shape
    Dim wks As Worksheet
 
 
    Set wks = ActiveWorkbook.Worksheets("Feuil1")
    Set shp = wks.Shapes.AddPicture("C:\Users\Philippe\Pictures\DVP\Avatar1.jpg", msoTrue, msoTrue, 25, 25, 100, 100)
    With shp
        .Line.Weight = 5
    End With
End Sub

Philippe

[patyom]

Well !
C'était le "set" qui me manquait,
ça colle à la perfection.

Merci et à prochain post