casper62110
XLDnaute Nouveau
Je souhaite utiliser du code vba pour inserer une image dans une celule
J ai 100 page a faire et sur chaque page se trouvera une photo didentite diferente
j'ai trouver ceci sur le forum
Sub AjoutImageFeuille()
Dim Shp As Shape
Dim Fichier As String
Dim Cell As Range
Fichier = "C:\test.jpg"
Set Cell = Range("B10")
'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
Set Shp = Feuil1.Shapes.AddPicture _
(Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End Sub
ma question est la suivante
peut on dire a excel d aller chercher la photos corespondant au nom de la feuille de calcul et de l afficher en B10
Exemple
Nom de la feuille de calcul "Salarie 1" et la il affiche la photo "C:\salarie1.jpg"
Nom de la feuille de calcul "Salarie 2" et la il affiche la photo "C:\salarie2.jpg"
merci de votre aide
J ai 100 page a faire et sur chaque page se trouvera une photo didentite diferente
j'ai trouver ceci sur le forum
Sub AjoutImageFeuille()
Dim Shp As Shape
Dim Fichier As String
Dim Cell As Range
Fichier = "C:\test.jpg"
Set Cell = Range("B10")
'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
Set Shp = Feuil1.Shapes.AddPicture _
(Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End Sub
ma question est la suivante
peut on dire a excel d aller chercher la photos corespondant au nom de la feuille de calcul et de l afficher en B10
Exemple
Nom de la feuille de calcul "Salarie 1" et la il affiche la photo "C:\salarie1.jpg"
Nom de la feuille de calcul "Salarie 2" et la il affiche la photo "C:\salarie2.jpg"
merci de votre aide