Bonjour à tous,
j'aimerais savoir s'il était possible selon vous d'afficher une image dans un ctrl image d'un userform à l'initailisation.
L'image à la base n'existe pas, j'ai un bouton qui permet de la charger et de la coller dans une plage de cellules fusionnées en adaptant à la forme de la sélection.
J'ai réussi à bidouiller pour que mon image soit affichée dans le ctrl image lors de son insertion mais ensuite elle n'est plus visible.
Ce que j'aimerais c'est qu'elle y reste.
Voilà comment je vois les choses :
1. j'insère une image en cliquant un bouton que je renomme "Signature-bénéficiaire.jpg" = juste une image blanche avec écrit "EXEMPLE"
2. cette image est affichée dans UF dans le ctrl image
3. lors de l'insertion de l'image par l'utilisateur cette image "EXEMPLE" (qui s'appelle donc "Signature-bénéficiaire.jpg") est supprimée et remplacée par la signature avec le même nom
4. celle-ci (la signature) se retrouve donc affichée dans le ctrl image à la place de l'autre
Pour info dans ma feuille j'ai des OptionButton (x6) et des CheckBox (x3) + une image pour l'en-tête du document. Ceux-ci étant considérés comme des objects également, la nouvelle image insérée sera en 11ème position.
Voici mon code pour l'instant et merci par avance !
PS : je sais qu'il n'est pas souhaitable de mettre des images dans un Excel mais il n'y en aura pas des tonnes. 4 signatures sous forme d'images (selon fonction) + 1 pour l'en-tête.
j'aimerais savoir s'il était possible selon vous d'afficher une image dans un ctrl image d'un userform à l'initailisation.
L'image à la base n'existe pas, j'ai un bouton qui permet de la charger et de la coller dans une plage de cellules fusionnées en adaptant à la forme de la sélection.
J'ai réussi à bidouiller pour que mon image soit affichée dans le ctrl image lors de son insertion mais ensuite elle n'est plus visible.
Ce que j'aimerais c'est qu'elle y reste.
Voilà comment je vois les choses :
1. j'insère une image en cliquant un bouton que je renomme "Signature-bénéficiaire.jpg" = juste une image blanche avec écrit "EXEMPLE"
2. cette image est affichée dans UF dans le ctrl image
3. lors de l'insertion de l'image par l'utilisateur cette image "EXEMPLE" (qui s'appelle donc "Signature-bénéficiaire.jpg") est supprimée et remplacée par la signature avec le même nom
4. celle-ci (la signature) se retrouve donc affichée dans le ctrl image à la place de l'autre
Pour info dans ma feuille j'ai des OptionButton (x6) et des CheckBox (x3) + une image pour l'en-tête du document. Ceux-ci étant considérés comme des objects également, la nouvelle image insérée sera en 11ème position.
Voici mon code pour l'instant et merci par avance !
PS : je sais qu'il n'est pas souhaitable de mettre des images dans un Excel mais il n'y en aura pas des tonnes. 4 signatures sous forme d'images (selon fonction) + 1 pour l'en-tête.
VB:
Private Sub CommandButton12_Click()
Sheets("Document").Range("J50:L53").Select
Dim ficimg As String, Ad As String
Ad = Selection.Address
MsgBox ("L'image doit être au format JPG"), vbOKOnly, ("ATTENTION !")
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
If ficimg = "Faux" Then Exit Sub
Me.chemin = ficimg
Me.Image7.PictureSizeMode = fmPictureSizeModeZoom
Me.Image7.Picture = LoadPicture(ficimg)
Set Image = ActiveSheet.Shapes.AddPicture(ficimg, False, True, ActiveCell.Left, ActiveCell.Top, Range(Ad).Width, Range(Ad).Height)
With Image
.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
.Placement = xlMoveAndSize
End With
Selection.Name = "Signature_bénéficiaire"
Me.Label5.Visible = True
Me.Label4.Visible = True
End Sub