Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 [RESOLU] - Imprimer une ImageBox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Toubabou

XLDnaute Impliqué
J’aurais besoin de votre aide. Dans le fichier joint à l’ouverture cliquez sur

==> "RECETTES »

==> Saisissez « Desserts » en-dessous de « Plats » ‘’ComboBox1’’

==> Sélectionnez « Bûche de Noël crème de marrons chantilly », en-dessous de « RECETTES » ‘’ComboBox2’’

La recette s’affiche. Je voudrais par le biais des OptionBox « OptionBox 1, 2et3), changer l’image(Image3), pouvoir l’enregistrer dans ma recette pour une prochaine ouverture et enfin lorsque j’imprime ma recette par la contrôle « Imprimer », je voudrais retrouver mon image au-dessus des étoiles du niveau de difficulté.

Pourriez-vous m’aider ?

Merci par avance

Mon fichier:
https://transfernow.net/71555223jj1c

Toubabou
 
Trier par date Trier par votes
Bonjour Toubabou, Claudy,

Voyez le fichier joint, maintenant le bouton IMPRIMER de l'UserForm fonctionne bien.

J'ai repris un certain nombre de choses, mais il vous en reste encore pas mal à améliorer.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Excuse moi Job75,
Je viens de m'apercevoir que si aucune sélection n'est faite par les "OptionButon" cela renvois une erreur du style:
Debogage:


Code: 
Private Sub InsImage(Image$, Cel As Range, ordre As Byte)
  Static y 'mémorise
  Cel.Activate
  Cel = Image
  With Sheets("IMPRESSION").Pictures.Insert(Image)
  '.Name = Image
    .ShapeRange.LockAspectRatio = msoTrue
    If ordre = 1 Then
      .Height = Cel.Height * 0.9
      If .Width > Cel.Width * 0.9 Then .Width = Cel.Width * 0.9
      .Top = Cel.Top + ((Cel.Height - .Height) / 2)
      .Left = Cel.Left + ((Cel.Width - .Width) / 2)
      y = .Top
    ElseIf ordre = 3 Then
      .Top = y
      .Height = 100
    Else
      .Top = y + 120
    End If
  End With
End Sub
 
Vote positif 0 Vote négatif
Bonjour Toubabou,
Toubabou à dit:
Par contre, pourrais-tu me dire quels sont les modifications que tu as apportées?
Cliquez pour agrandir...
J'ai modifié les macros :

- des 3 OptionButtons avec Image3.Tag

- CommandButton5_Click() avec les 3 Call InsImage

- InsImage.

J'ai aussi ajouté OptionButton1 = True dans CheckBox1_Click pour qu'au moins un bouton soit activé.

Si l'on supprime CheckBox1 il faudra mettre cette instruction ailleurs, par exemple dans UserForm_Initialize.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Question Question
XL 2010 [RESOLU] - Mémoriser la sélection d'un OptionButton
2
Réponses
17
Affichages
2 K
Toubabou
T
T
  • Question Question
XL 2010 Bouton "SUPPRIMER"
2
Réponses
18
Affichages
2 K
Toubabou
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…