Incorporer image dans une Forms.Image.1

[maval]

Bonjour

Je suis a la recherche de façon d'incorporer une image dans une Forms.Image.1

Je joint un exemple qui seras certainement plus explicite.

Merci d'avance

Cordialement

Max

 

[Compte Supprimé 979]

Re : Incorporer image dans une Forms.Image.1

Salut MaVal

Si tu nous en disais plus, que veux tu faire exactement ?

A+

 

[maval]

Re : Incorporer image dans une Forms.Image.1

Bonjour Bruno

Et merci d'avoir répondu.

Je joint un nouveau fichier qui seras plus explicite

@+

Max

 

[JCGL]

Re : Incorporer image dans une Forms.Image.1

Bonjour à tous,

Un essai avec :

'Disparaitre / Apparaitre
Private Sub CheckBox20_Click()
    With Feuil1
        If CheckBox20.Value = True Then
        Me.CheckBox20.Caption = "Disparaitre"
        .Image1.Visible = False
        .Label1.Visible = True
        .Label2.Visible = True
        .Label3.Visible = True
        .Label4.Visible = True
        .Label5.Visible = True
        .Label6.Visible = True
        .TextBox2.Visible = True
        .TextBox3.Visible = True
        .TextBox4.Visible = True
        .TextBox5.Visible = True
        .TextBox6.Visible = True
        .Shapes("image1").Visible = True
        .Shapes("image2").Visible = True


    ElseIf CheckBox20.Value = False Then
    Me.CheckBox20.Caption = "Apparaitre"
        .Image1.Visible = True
        .Label1.Visible = False
        .Label2.Visible = False
        .Label3.Visible = False
        .Label4.Visible = False
        .Label5.Visible = False
        .Label6.Visible = False
        .TextBox2.Visible = False
        .TextBox3.Visible = False
        .TextBox4.Visible = False
        .TextBox5.Visible = False
        .TextBox6.Visible = False
        .TextBox1.Visible = False
        .Shapes("image1").Visible = False
        .Shapes("image2").Visible = False
    End If
End With
End Sub

A+ à tous



A+ à tous

 

[maval]

Re : Incorporer image dans une Forms.Image.1

Bonjour JC

Je te remercie beaucoup Nickel et te souhaite une bonne soirée.

@+

Max