Transformer une référence d'image en image sous VB ?
2 réponses
legen
Bonjour,
Je récupère régulièrement (extraction de BDD) des fichiers Excel
contenant des images... qui sont juste des références vers le net.
Ces images doivent aussi être remis dans leur taille d'origine, pour
cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes
If Shapes.Name Like "Picture*" Then
With Shapes
.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
.IncrementTop 0.75
.IncrementLeft 0.75
End With
End If
Next
End Sub
Par contre je n'arrive pas à transformer ces références d'image en
image réellement contenue dans mon XLS (à la main, je fais
copier/collage spécial JPG)... Qqun verrait quel bout de code à
rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un
coup de main.
Je récupère régulièrement (extraction de BDD) des fichiers Excel contenant des images... qui sont juste des références vers le net. Ces images doivent aussi être remis dans leur taille d'origine, pour cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes If Shapes.Name Like "Picture*" Then With Shapes .ScaleHeight 1#, msoTrue, msoScaleFromTopLeft .ScaleWidth 1#, msoTrue, msoScaleFromTopLeft .IncrementTop 0.75 .IncrementLeft 0.75 End With End If Next End Sub
Par contre je n'arrive pas à transformer ces références d'image en image réellement contenue dans mon XLS (à la main, je fais copier/collage spécial JPG)... Qqun verrait quel bout de code à rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un coup de main.
Je récupère régulièrement (extraction de BDD) des fichiers Excel
contenant des images... qui sont juste des références vers le net.
Ces images doivent aussi être remis dans leur taille d'origine, pour
cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes
If Shapes.Name Like "Picture*" Then
With Shapes
.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
.IncrementTop 0.75
.IncrementLeft 0.75
End With
End If
Next
End Sub
Par contre je n'arrive pas à transformer ces références d'image en
image réellement contenue dans mon XLS (à la main, je fais
copier/collage spécial JPG)... Qqun verrait quel bout de code à
rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un
coup de main.
Je récupère régulièrement (extraction de BDD) des fichiers Excel contenant des images... qui sont juste des références vers le net. Ces images doivent aussi être remis dans leur taille d'origine, pour cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes If Shapes.Name Like "Picture*" Then With Shapes .ScaleHeight 1#, msoTrue, msoScaleFromTopLeft .ScaleWidth 1#, msoTrue, msoScaleFromTopLeft .IncrementTop 0.75 .IncrementLeft 0.75 End With End If Next End Sub
Par contre je n'arrive pas à transformer ces références d'image en image réellement contenue dans mon XLS (à la main, je fais copier/collage spécial JPG)... Qqun verrait quel bout de code à rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un coup de main.
Olivier
Merci Isabelle, mais l'exemple cité ser à exporter ces images, alors que dans mon cas je veux simplement que ces images restent dans le XLS mais en tant qu'image (l'utilisateur ne doit pas avoir besoin d'internet pour les afficher).
Je récupère régulièrement (extraction de BDD) des fichiers Excel contenant des images... qui sont juste des références vers le net. Ces images doivent aussi être remis dans leur taille d'origine, pour cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes If Shapes.Name Like "Picture*" Then With Shapes .ScaleHeight 1#, msoTrue, msoScaleFromTopLeft .ScaleWidth 1#, msoTrue, msoScaleFromTopLeft .IncrementTop 0.75 .IncrementLeft 0.75 End With End If Next End Sub
Par contre je n'arrive pas à transformer ces références d'image en image réellement contenue dans mon XLS (à la main, je fais copier/collage spécial JPG)... Qqun verrait quel bout de code à rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un coup de main.
Merci Isabelle,
mais l'exemple cité ser à exporter ces images, alors que dans mon cas je
veux simplement que ces images restent dans le XLS mais en tant qu'image
(l'utilisateur ne doit pas avoir besoin d'internet pour les afficher).
Je continue à chercher...
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
e8BB4SdQFHA.3596@TK2MSFTNGP15.phx.gbl...
Je récupère régulièrement (extraction de BDD) des fichiers Excel
contenant des images... qui sont juste des références vers le net.
Ces images doivent aussi être remis dans leur taille d'origine, pour
cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes
If Shapes.Name Like "Picture*" Then
With Shapes
.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
.IncrementTop 0.75
.IncrementLeft 0.75
End With
End If
Next
End Sub
Par contre je n'arrive pas à transformer ces références d'image en
image réellement contenue dans mon XLS (à la main, je fais
copier/collage spécial JPG)... Qqun verrait quel bout de code à
rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un
coup de main.
Merci Isabelle, mais l'exemple cité ser à exporter ces images, alors que dans mon cas je veux simplement que ces images restent dans le XLS mais en tant qu'image (l'utilisateur ne doit pas avoir besoin d'internet pour les afficher).
Je récupère régulièrement (extraction de BDD) des fichiers Excel contenant des images... qui sont juste des références vers le net. Ces images doivent aussi être remis dans leur taille d'origine, pour cela j'utilise le code ci-dessous :
For Each Shapes In ActiveSheet.Shapes If Shapes.Name Like "Picture*" Then With Shapes .ScaleHeight 1#, msoTrue, msoScaleFromTopLeft .ScaleWidth 1#, msoTrue, msoScaleFromTopLeft .IncrementTop 0.75 .IncrementLeft 0.75 End With End If Next End Sub
Par contre je n'arrive pas à transformer ces références d'image en image réellement contenue dans mon XLS (à la main, je fais copier/collage spécial JPG)... Qqun verrait quel bout de code à rajouter à ma macro me permettrait de faire cela ?
Un grand merci d'avance pour la bonne âme qui voudra bien me donner un coup de main.
