inserer une photos dans un rectangle ou zonz de texte

[creolia]

bonjour je souhaiterais par le bias un Formulaire integrer une image dans un restangle a la taille 399 x 500 px pouvez vous m'aider svp j'ai creer un debut userform mais bon c'est pas concluant

 

[Hulk]

Re : inserer une photos dans un rectangle ou zonz de texte

Hello Créolia,

Essaie ce code pour ton bouton "Insère"

Private Sub CommandButton1_Click()
    
    On Error Resume Next

    ChoixImage = Application.GetOpenFilename _
    ("Image Bipmap (*.bmp), *.bmp, JPEG (*.jpg), *.jpg, Tous les fichiers (*.*),*.*", 3)

    If ChoixImage = "" Then Exit Sub

    Image1.Picture = LoadPicture()
    
    If Dir(ChoixImage) <> "" Then
        Image1.Picture = LoadPicture(ChoixImage)
    End If

    ActiveSheet.Shapes("Rectangle 8").Fill.UserPicture ChoixImage

End Sub

Bonne fêtes.

 

[Papou-net]

Re : inserer une photos dans un rectangle ou zonz de texte

Bonjour creolia, Hulk,

Pardon Hulk, je me suis permis de raccourcir ton code qui fonctionne pourtant très bien.

J'espère que tu ne m'en voudras pas d'y avoir mis mon grain de sel.

Cordialement.

Private Sub CommandButton1_Click()
On Error Resume Next
ChoixImage = Application.GetOpenFilename _
  ("Image Bipmap (*.bmp), *.bmp, JPEG (*.jpg), *.jpg ", 3)
If ChoixImage <> False Then Image1.Picture = LoadPicture(ChoixImage)
End Sub

 

[Hulk]

Re : inserer une photos dans un rectangle ou zonz de texte

Hello,

J'espère que tu ne m'en voudras pas

D'aucunes manières Papou 😀

Mais je crois qu'il veut aussi l'image dans le rectangle de la feuille, et, pour lui laisser le choix de quels types de fichiers il veut privilégier...

Private Sub CommandButton1_Click()

    On Error Resume Next
    
    'Ouvre sur les Bmp
    ChoixImage = Application.GetOpenFilename("Image Bipmap (*.bmp), *.bmp, JPEG (*.jpg), *.jpg ", 3)
    
    'Ouvre sur les jpg
    'ChoixImage = Application.GetOpenFilename("JPEG (*.jpg), *.jpg Image Bipmap (*.bmp), *.bmp, ", 3)
    
    'Ouvre sur tous les fichiers images
    'ChoixImage = Application.GetOpenFilename("Image Bipmap (*.bmp), *.bmp, JPEG (*.jpg), *.jpg, Tous les fichiers (*.*),*.*", 3)

    If ChoixImage <> False Then
        Image1.Picture = LoadPicture(ChoixImage)
        ActiveSheet.Shapes("Rectangle 8").Fill.UserPicture ChoixImage
    End If

End Sub

Bye et bonnes fêtes, Hulk.

 

[creolia]

Re : inserer une photos dans un rectangle ou zonz de texte

genial merci beaucoup code hulk impecable mais merci a tous

il me reste plus qu'a trouver comment faire pour que cette photos apparais aussi dans mon userform et le tour est jouer en tous cas merci a tous les deux bonne fete a vous

 

[degap05]

Re : inserer une photos dans un rectangle ou zonz de texte

genial merci beaucoup code hulk impecable mais merci a tous

il me reste plus qu'a trouver comment faire pour que cette photos apparais aussi dans mon userform et le tour est jouer en tous cas merci a tous les deux bonne fete a vous

Bonjour,
Une solution du forum:
https://www.excel-downloads.com/threads/image-en-tant-que-fond-de-userform.127847/

A+

 

[creolia]

Re : inserer une photos dans un rectangle ou zonz de texte

merci pour ta reponse mais je cherche plus une sorte d'aperçus dans userforme de ce qui ce trouvent dans mon rectangle 8 sur ma feuil

j'ai trouver sa mais l'adresse complet c'est pour le disque dur mais pas pour ma feuil si vous avez une idée merci de m'aider

Private Sub UserForm_Initialize()
Me.Picture = LoadPicture(Chemindaccèscompletversunfichierdimage)
End Sub

 

[degap05]

Re : inserer une photos dans un rectangle ou zonz de texte

merci pour ta reponse mais je cherche plus une sorte d'aperçus dans userforme de ce qui ce trouvent dans mon rectangle 8 sur ma feuil

j'ai trouver sa mais l'adresse complet c'est pour le disque dur mais pas pour ma feuil si vous avez une idée merci de m'aider

Private Sub UserForm_Initialize()
Me.Picture = LoadPicture(Chemindaccèscompletversunfichierdimage)
End Sub

Voir ce fil:

https://www.excel-downloads.com/thr...s-le-classeur-excel-dans-une-userform.124761/

A+