Hello Hello,
Je passe un ptit moment sur mon ordi perso chez moi, que j'avais pas encore allumé !!
Très bien Vériland, mais de mon coté j'ai bien noté que Yorrick devait faire çà sur pas mal de rows...
Alors j'ai rebricolé
Lien supprimé que j'avais fait pour notre ami Mytå...Juste pour le Fun
Par contre faut faire tourner çà sur une bête de course... Sinon "Out of Memory" assuré, il faut un max de mémoire virtuelle pour que çà tourne...
Je n'ai pas non plus testé sur 2000 photo... alors ptet que çà va pas se faire... (Si problème, définir des tranches de zones à couvrir à la place de 1 To Range("A65535").End(xlUp).Row, mettre de 1 to 100, puis changer manuellement 101 to 200... etc...
Mais çà devrait tout de même aller plus vite que 2000 clicks droits...lol
Sub Image_commentaire()
Dim i As Integer
Dim Limage As String
For i = 1 To Range("A65535").End(xlUp).Row
If Range("A" & i).Value <> "" Then
Limage = Range("A" & i) & ".gif"
With Range("A" & i)
.ClearComments
.AddComment
.Comment.Visible = False
With Range("A" & i).Comment.Shape
.Fill.UserPicture "C:\Mes documents\Mes images\" & Limage
.ScaleHeight 3#, msoFalse, msoScaleFromTopLeft
.ScaleWidth 3#, msoFalse, msoScaleFromTopLeft
End With
End With
Else
Range("A" & i).ClearComments
End If
Next i
End Sub
Je ne suis pas arrivé par contre à appliquer "PictureFormat" avec des constantes xlStackScale ou xlStack... et par défaut les photos seront plutôt xlStretch (déformées...) Mais si les Photos Gif de Yorrick sont toutes d'une taille standard, il suffira de peaufiner sur la valeur de ScaleHeight (par exemple 3.55 au lieu de 3#) afin d'avoir une taille correcte et une déformation minime...
Enfin je répète que çà à l'air de bouffer un max de ressources (j'ai dû quitter toute autre application et même faire tourner juste après un reboot pour que çà passe)
merci encore au fait Vincent !
Bonne soirée
@+Thierry