[PPT-2003] Combobox, textbox et picturebox [Résolu]

[Neoxaro]

Bonjour,

Je voudrais utiliser les imagebox ou picturebox(je sais pas comment cela s'appelle), le point positif, c'est que l'on peut changer d'image facilement avec "propriété" sans changer le format de la box
donc on garde la mise en forme. Seul problème impossible de rajouter quoi que ce soit par dessus. L'image box reste en premier plan quoi que l'on fasse.
Impossible de jouer sur les differents plan pour palier ce problème. Donc pour essayer de résoudre ce problème j'ai créé une autre picturebox par dessus avec l'image que je voulais dessiner ( un rond) mais seul problème impossible de mettre le fond transparent, cela reste de la couleur du backcolor.

Je vous remercie d'avance pour votre aide. (Je sais que cela fait beaucoup mais plus j'avance plus je me confronte à des problèmes dont ceux là qui après 2 jours dessus m'on fait abandonné)

Cordialement

[Philippe JOCHMANS]

Bonjour

Pourquoi une PictureBox et non une image (dans la barre d'outils qui te permet de mettre les formes) ?

Là tu peux gérer la transparence : Comment enlever le fond blanc d'une image que j'ai incorporée pour avoir une transparence ?

PS : Merci de ne poser qu'une question par discussion.

Philippe

[Neoxaro]

Bonjour,

Je dois utiliser une imagebox car je fais pas mal de contrôle dessus avec des userform etc.

Donc il faut que je puisse soit :

- dessiner un rond auquel je mets le remplissage transparent et lequel doit rester au dessus de mon imagebox même pendantmon diaporama.

- créer un cercle dans mon imagebox du même style que image1.circle sauf que je ne peux pas l'utiliser car cela n'existe pas je ne doit pas avoir de library ou bien le forum où il en parlait ne parlait pas de VBA. Donc dans ces cas là trouver un moyen de dessiner un crecle dedans.

Cordialement

[Philippe JOCHMANS]

Bonjour

Tu peux dessiner par programmation (VBA) toutes les formes fournies avec PowerPoint.

Voici un exemple de code commenté, avec un cercle.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub DessinerCercle()
    ' déclaration
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
 
    ' affecation
    Set objPres = ActivePresentation
    Set objSld = objPres.Slides(1)          ' designe la première slide
 
    ' céation du cercle
    Set objShp = objSld.Shapes.AddShape(msoShapeOval, 100, 100, 25, 25)
    ' on met une couleur rouge
    objShp.Line.ForeColor.RGB = RGB(255, 0, 0)
    ' on met un fond transparent
    objShp.Fill.Transparency = 1#
 
End Sub

Philippe

[Neoxaro]

Bonjour,

Le seul problème avec ce code c'est que le cercle arrive tout le temps en dessous de mon imagebox (Image, contrôle) . Les imagebox ont la priorité d'affichage lors du diaporama. Donc je voie bien mon cercle au dessus lors de la création mais lors du diaporama mon cercle disparait en dessous de mon imagebox. Sinon c'est exactement cela qu'il me faut.


Cordialement

[Philippe JOCHMANS]

Re

Tu utilises pour ton image un contrôle Active X, hors si tu insères une image par le menu insertion, celle-ci se trouvera en dessous.

Philippe

[Neoxaro]

Bonjour,

oui c'est exactement cela le probleme ActiveX arrive au-dessus du reste et je voudrais savoir comment faire pour éviter cela. Au lieux de dessiner il faudrait passer par une autre imagebox que l'on mettrais par dessus et là elle resterais voyante mais doit rester transparente...

Pour info, comme cela se sera plus facile pour la compréhension,
Cette imagebox est créé pour pouvoir changer l'image facilement pour la personne. J'ai créé une userform, quand je clique dessus permet d'ouvrir une fenêtre qui permet de parcourir les dossiers et aller chercher l'image que l'on veux. Cela permet de simplifier et accélérer ces actions.

Apres il y avait l'idee, de dessiner dans l'image contrôle, si ce n'est pas possible autrement. Dans ce cas là, on cliquerait sur l'imagebox et un cercle se dessinerais sur l'image à l'intèrieur de l'imagebox. J'ai vu pour cela paintpicture ou drawimage sauf que je n'ai pas compris comment faire sachant que paintpicture ne marche qu'en VB6 donc pas pour moi et drawimage je ne sais pas.

Cordialement

[Philippe JOCHMANS]

Re

je crois que tu n'as pas compris, il ne faut pas utiliser le contrôle Active X, mais récupérer le chemin de l'image (comme tu le fait actuellement) et charger celle-ci dans une forme, voici un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub InsererImage()
    ' déclaration
    Dim objPres As Presentation
    Dim objSld As Slide
    Dim objShp As Shape
 
    ' affecation
    Set objPres = ActivePresentation
    Set objSld = objPres.Slides(1)          ' designe la première slide
 
    ' céation du cercle
    Set objShp = objSld.Shapes.AddPicture("C:\Users\Philippe\Pictures\Portrait.jpg", msoFalse, msoTrue, 25, 25, 100, 150)
 
End Sub

et maintenant tu peux mettre un cercle sur cette image sans problème, le cercle sera devant.

Philippe

[Neoxaro]

Bonjour,

Merci bien cela fonctionne parfaitement.

Cordialement