Bonjour,
Je suis en train de créer un fichier Excel et pour cela j'ai créer une macro (activé grâce à un bouton) qui me permet d’insérer une image dans une cellule. Dans cette macro j'ai 2 problèmes que je n'arrive pas à résoudre :
-Actuellement je n'ai réussi qu'à insérer l'image, mais celle-ci s'adapte au format de la cellule. Hors je voudrais que l'image s'adapte à la hauteur de la cellule mais non à sa largeur afin de garder les proportionnalités de l'image. De se fait il faudrait que l'image se centre dans la cellule aussi.
-Pour la deuxième partie je voudrais aussi que l'image se copie dans la feuille 2 dans une cellule précise (en sachant que la cellule de départ et la cellule d'arrivée auront le même format). Hors actuellement je n'ai réussi qu'à créer une macro pour copier dans la feuille 2 mais je n'arrive pas à faire que ça soit dans une cellule précise.
Voici la macro que j'ai tenté d'élaborer ainsi que le fichier Excel concerné.
Sub CommandButton_Click()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
Worksheets("Feuil1").Range("A1").Select
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
[A1].Select
Worksheets("Feuil1").Range("A1").CopyPicture
Sheets("Feuil2").Paste
End Sub
Merci d'avance pour votre aide concernant c'est 2 problèmes.
Bien Cordialement
Kahyasse
Je suis en train de créer un fichier Excel et pour cela j'ai créer une macro (activé grâce à un bouton) qui me permet d’insérer une image dans une cellule. Dans cette macro j'ai 2 problèmes que je n'arrive pas à résoudre :
-Actuellement je n'ai réussi qu'à insérer l'image, mais celle-ci s'adapte au format de la cellule. Hors je voudrais que l'image s'adapte à la hauteur de la cellule mais non à sa largeur afin de garder les proportionnalités de l'image. De se fait il faudrait que l'image se centre dans la cellule aussi.
-Pour la deuxième partie je voudrais aussi que l'image se copie dans la feuille 2 dans une cellule précise (en sachant que la cellule de départ et la cellule d'arrivée auront le même format). Hors actuellement je n'ai réussi qu'à créer une macro pour copier dans la feuille 2 mais je n'arrive pas à faire que ça soit dans une cellule précise.
Voici la macro que j'ai tenté d'élaborer ainsi que le fichier Excel concerné.
Sub CommandButton_Click()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
Worksheets("Feuil1").Range("A1").Select
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
[A1].Select
Worksheets("Feuil1").Range("A1").CopyPicture
Sheets("Feuil2").Paste
End Sub
Merci d'avance pour votre aide concernant c'est 2 problèmes.
Bien Cordialement
Kahyasse