Discussion :

[lenoil]

Bonjour à tous,

j'esssaye d'insérer une image par code VBA mais je n'y arrive pas .
Mon image est en adresse http://blabla/image.png (c'est une image png)

Le code suivant ne focntionne pas:

Code :

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

1
2
3
 
Range("F3" ).Select
ActiveSheet.Pictures.Insert ("http://lesite/image/monimage.png" )

Comment faire
merci

[mat-tech]

Et comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub insetimage()
    Range("F3" ).Select
    ActiveSheet.Pictures.Insert(" http://blabla/image.png").Select
 
    With Selection.ShapeRange
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
    End With
 
End Sub

[SilkyRoad]

bonsoir

Le code suivant ne focntionne pas:

Utilises tu Excel 2007 ?

Pourquoi Pictures.Insert ne fonctionne plus sous Excel 2007


bonne soirée
michel

[lenoil]

Oui je suis sous Excel 2007

Cela ne focntionne pas mieux avec ce nouveau code

Pourtant quand je testes Depuis les commandes des menus Insérer une image et que je mets en http: cela focntionne mais j'arrive pas à récupérer le code qui se cache derrière.

Merci pour votre aide

[fring]

Bonjour,

Je viens de tester et le code fonctionne pourtant bien.
Teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim strImage As String
Dim Sh As Shape
 
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 50, 50, 150, 150)
 
strImage = "http://samuel.bizien.info/fractales/f_vrier_2007/flocon_png.png"
Sh.Fill.UserPicture strImage
 
End Sub

[lenoil]

ce code fonctionne

merci beaucoup

je vais vérifier plus en détails dès que j'ai un moment

Merci en tout cas