Version imprimable
Salut à tous!!!:lol:
Ma question porte sur l'objet Ole "Image Bitmap" pour le moment je l'insert dans une "Boîte de dialogue Microsoft Excel 5.0" mais l'inconvénient de cette boite de dial :( c'est qu'elle n'est pas paramétrable contrairement au bonne vielle UserForm ;) !
Donc je me suis demandé si il était possible d'inserer cet objet Ole dans une userform? :?
et si Oui, Comment?:?
Merci d'avance
Gootsu
ahah je voix que j'ai posé une colle!! :lol:
Qui sera capable de relever le défi!!! lol ;)
Je travaille en aveugle (sans VBA), tu le sais.
Mais je vois que tu n'as pas de réponse.
Alors nous allons essayer.
Quand tu as fait ton userform :
Fais ce que tu fais d'habitude pour ajouter un composant..
Tu as peut-être comme sous VB une fenêtre avec un onglet "insertable objects". Si oui Cliques dessus et insère l'objet de ton choix...
Essaye.
enfait je pose cette question parce que justement ;) il n'y a pas d'onglet "insertable objects" ou "insert objet OLE"!!:cry:Citation:
je me suis demandé si il était possible d'inserer cet objet Ole dans une userform?
Et si tu nous disais ce que tu veux faire ? Et où ? Si c'est insérer une image en la nommant dans un userform, tu dis, c'est peaucoup plus simple... ;)
enfait je veux ouvrir "paint" en cliquan" sur l'image 'Bmp' ?
je veux faire la meme chose qu'un objet "OLE Image Bitmap" dans Excel!
- je clic sur l'objet
- il m'ouvre paint
- je modifi le dessin
- je ferme paint
- il prend en compte les modifications
- il me les affiches dans l'objet
mais je veux que ce soit dans une Userform! :?
pour le moment c'est dans une "boîte de dialogue Microsoft Excel 5.0"! :)
Merci
Si tu as le nom de ton image, je ne peux que te proposer un "bricolage"
Un clic sur ton image qui
- Ouvre le fichier dans Paint par soft,
Là tu modifies l'image, puis la Sauvegarde
- Un nouveau clic sur l'image remplace l'image par l'image modifiée
J'ai bien dit un "bricolage" :(
Si on peut le faire par un objet OLE, je n'ai pas la solution re :cry:
Si tu as le nom de ton image, je ne peux que te proposer un "bricolage"
Un clic sur ton image qui
- Ouvre le fichier dans Paint par soft,
Là tu modifies l'image, puis la Sauvegarde
- Un nouveau clic sur l'image remplace l'image par l'image modifiée
J'ai bien dit un "bricolage" :(
Si on peut le faire par un objet OLE, je n'ai pas la solution re :cry:
Mets-nous le code que tu utilises dans ta "boîte de dialogue Microsoft Excel 5.0" ;)
Désolé, tu sais que je n'ai pas le VBA moderne..
Si tu comprends l'anglais, toutefois, tu peux peut-être lire très attentivement la totalité de ce que tu vas trouver ici :
http://ureader.com/message/1414400.aspx
et adapter.;)
J'utilise la "Boite de dial. Micro Excel 5.0" donc dans les onglets des feuilles d'Excel il apparaît cette "boite de dial." comme une feuille Excel.
D'ailleur je ne veux pas qu'elle apparaisse pour éviter que l'utilisateur modifie ou supprime qqch. sur celle-ci.
Donc le seul moyen que j'ai trouvé pour régler ce problème :
1) je crée la "Boite de dialogue"
à la fermeture
2) je la détruit (au passage je précise qu'il me gère une erreur à la destruction de la boite de dialogue)!
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49Sub MicroExceldialog5() Application.ScreenUpdating = False 'Ajout de la Boite de dialogue Microsoft Excel 5.0 DialogSheets.Add.Name = "DialContrl" 'Edition de la boite de dial 'Réglage de la taille de la boite ActiveSheet.Shapes("Dialog 1").Select Selection.ShapeRange.ScaleWidth 2.02, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 2.21, msoFalse, msoScaleFromTopLeft 'Mise en place des deux boutons à l'endroit voulut ActiveSheet.Shapes.Range(Array("Button 2", "Button 3")).Select Selection.ShapeRange.IncrementLeft 252# Selection.ShapeRange.IncrementTop 252# 'Création de l'objet OLE "Image Bitmap" ActiveSheet.OLEObjects.Add(Filename:="C:\Documents and Settings\Gootsu\ _ Mes documents\Mes images\xxxxxxxx.bmp", Link:=False, _ DisplayAsIcon:=False).Select 'Réglage de la taille et de la position de l'Objet Selection.ShapeRange.IncrementLeft 95.25 Selection.ShapeRange.IncrementTop 48.75 Selection.ShapeRange.ScaleWidth 0.89, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft 'Affectation d'une macro sur l'objet OLE pour ouvrir "paint" ActiveSheet.Shapes("Object 4").Select Selection.OnAction = "MOpen" 'Affectation d'une macro au bouton 2 et l'édition de son nom ActiveSheet.Shapes("Button 2").Select Selection.Characters.Text = "Quitter" Selection.OnAction = "DelDial" 'Afficher la boite de dialogue DialogSheets(1).Show End Sub Sub MOpen() 'Macro d'ouverture de "paint" pour l'objet OLE ActiveSheet.Shapes("Object 4").Select Selection.Verb Verb:=xlOpen End Sub Sub DelDial() 'Macro de fermeture de la boite de dialogue 'Fermeture de la boite de Dial DialogSheets(1).Hide 'Destruction de la boie de dialogue Sheets("DialContrl").Select ActiveWindow.SelectedSheets.Delete End Sub
pour que la boite de dialogue n'apparaise pas dans les onglets excel.. voir menu format/Feuille/masquer
Tu ne peux supprimer une feuille de calcul que s'il t'en reste une autre dans le classeur. Mais tu peux la masquer (cf - Réponse de bbil ;) )
Merci
J'ai pas pensé à passer par format/feuille/... car je pensais que la boite de dialogue apparaissé comme les feuilles excel dans l'éditeur vba!! :oops:
Comme elle n'apparaissé pas et qu'elles n'ont pas de paramètre, je pensais que ce n'était pas possible avec les boite de dialogue excel
merci encore!:oops:
ps : quand je dis pas de paramètre je parle de la fenetre propriété il n'y as aucun paramètre!