Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
bonjour
Imprime ecran, tu modifies l'image aprés
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Charmout
merci Pierre
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
merci Pierre
Mais je prefere eviter cette solution parce que :
1- ca depend de la resol écran et du zoom d'affichage
2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour
Imprime ecran, tu modifies l'image aprés
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Pierre CFI [mvp]
.../... oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o) mais, c'est pas pour çà qu'il n'y en a pas
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
merci Pierre
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
.../...
oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o)
mais, c'est pas pour çà qu'il n'y en a pas
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:ED6FEEA5-C59C-4B4F-8DA3-E5E428E462C5@microsoft.com...
merci Pierre
Mais je prefere eviter cette solution parce que :
1- ca depend de la resol écran et du zoom d'affichage
2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour
Imprime ecran, tu modifies l'image aprés
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
.../... oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o) mais, c'est pas pour çà qu'il n'y en a pas
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
merci Pierre
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Charmout
Oui surement :-)
Je pense à autre chose : sais tu STP comment faire pour avoir l'équivalent du CopyPicture d'un graphique pour une frm. Une facon de faire, serait d'afficher la frm et de faire un screenshot de la fenetre active). Il doit forcement exister une API, non?
Ensuite, j'ai tout ce qu'il faut pour recuperer l'image du presse papier et la mettre dans un objet Image sur ma feuille. (cet objet image ne sera visible que quand j'imprimerai)
ca fait un peu lourd mais bon...
"Pierre CFI [mvp]" wrote:
..../... oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o) mais, c'est pas pour çà qu'il n'y en a pas
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
merci Pierre
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Oui surement :-)
Je pense à autre chose :
sais tu STP comment faire pour avoir l'équivalent du CopyPicture d'un
graphique pour une frm. Une facon de faire, serait d'afficher la frm et de
faire un screenshot de la fenetre active). Il doit forcement exister une API,
non?
Ensuite, j'ai tout ce qu'il faut pour recuperer l'image du presse papier et
la mettre dans un objet Image sur ma feuille. (cet objet image ne sera
visible que quand j'imprimerai)
ca fait un peu lourd mais bon...
"Pierre CFI [mvp]" wrote:
..../...
oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o)
mais, c'est pas pour çà qu'il n'y en a pas
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:ED6FEEA5-C59C-4B4F-8DA3-E5E428E462C5@microsoft.com...
merci Pierre
Mais je prefere eviter cette solution parce que :
1- ca depend de la resol écran et du zoom d'affichage
2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour
Imprime ecran, tu modifies l'image aprés
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
Je pense à autre chose : sais tu STP comment faire pour avoir l'équivalent du CopyPicture d'un graphique pour une frm. Une facon de faire, serait d'afficher la frm et de faire un screenshot de la fenetre active). Il doit forcement exister une API, non?
Ensuite, j'ai tout ce qu'il faut pour recuperer l'image du presse papier et la mettre dans un objet Image sur ma feuille. (cet objet image ne sera visible que quand j'imprimerai)
ca fait un peu lourd mais bon...
"Pierre CFI [mvp]" wrote:
..../... oui, mais je vois pas d'autres solutions, surtout pour les frm + feuille :o) mais, c'est pas pour çà qu'il n'y en a pas
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
merci Pierre
Mais je prefere eviter cette solution parce que : 1- ca depend de la resol écran et du zoom d'affichage 2- je veux que tout soit automatique
"Pierre CFI [mvp]" wrote:
bonjour Imprime ecran, tu modifies l'image aprés
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Michel Pierron
Bonjour Charmout; Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur l'userform déclenche l'insertion de l'image de l'userform dans la cellule active, lance l'impression puis dans la foulée, détruit l'image insérée. Dans le module UserForm: Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _ , ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Button = 2 Then Exit Sub Dim ImgName As String OpenClipboard 0& EmptyClipboard keybd_event 44, 1, 0&, 0& CloseClipboard AppActivate Application.Caption, True ' L'image est collée dans la cellule active ! ActiveSheet.Paste ImgName = Selection.Name Application.CutCopyMode = False ActiveSheet.PrintOut Copies:=1 ActiveSheet.Shapes(ImgName).Delete End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus compliqué. MP
"Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Bonjour Charmout;
Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur
l'userform déclenche l'insertion de l'image de l'userform dans la cellule
active, lance l'impression puis dans la foulée, détruit l'image insérée.
Dans le module UserForm:
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _
, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not Button = 2 Then Exit Sub
Dim ImgName As String
OpenClipboard 0&
EmptyClipboard
keybd_event 44, 1, 0&, 0&
CloseClipboard
AppActivate Application.Caption, True
' L'image est collée dans la cellule active !
ActiveSheet.Paste
ImgName = Selection.Name
Application.CutCopyMode = False
ActiveSheet.PrintOut Copies:=1
ActiveSheet.Shapes(ImgName).Delete
End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus
compliqué.
MP
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
Bonjour Charmout; Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur l'userform déclenche l'insertion de l'image de l'userform dans la cellule active, lance l'impression puis dans la foulée, détruit l'image insérée. Dans le module UserForm: Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _ , ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Button = 2 Then Exit Sub Dim ImgName As String OpenClipboard 0& EmptyClipboard keybd_event 44, 1, 0&, 0& CloseClipboard AppActivate Application.Caption, True ' L'image est collée dans la cellule active ! ActiveSheet.Paste ImgName = Selection.Name Application.CutCopyMode = False ActiveSheet.PrintOut Copies:=1 ActiveSheet.Shapes(ImgName).Delete End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus compliqué. MP
"Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Charmout
Bonjour MP,
Ta solution me convient parfaitement. Je t'avoue qu'hier j'avais commencé à y reflechir dans ce meme esprit !
Pour plusieurs usf, je compte m'y prendre de cette facon : 1/Boucle sur toutes les usf que je veux afficher : - Activer la USF - la Capturer - Paster l'image dans la feuille - positionner et redimensionner l'image à mon gout - cacher la USF 2/ Imprimer la feuille
Je te remercie d'avoir pris le temps de me répondre. Charmout
"Michel Pierron" wrote:
Bonjour Charmout; Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur l'userform déclenche l'insertion de l'image de l'userform dans la cellule active, lance l'impression puis dans la foulée, détruit l'image insérée. Dans le module UserForm: Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _ , ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Button = 2 Then Exit Sub Dim ImgName As String OpenClipboard 0& EmptyClipboard keybd_event 44, 1, 0&, 0& CloseClipboard AppActivate Application.Caption, True ' L'image est collée dans la cellule active ! ActiveSheet.Paste ImgName = Selection.Name Application.CutCopyMode = False ActiveSheet.PrintOut Copies:=1 ActiveSheet.Shapes(ImgName).Delete End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus compliqué. MP
"Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
Le probleme : les userform ne s'impriment pas.
Y'a t il une solution ?
merci
Bonjour MP,
Ta solution me convient parfaitement.
Je t'avoue qu'hier j'avais commencé à y reflechir dans ce meme esprit !
Pour plusieurs usf, je compte m'y prendre de cette facon :
1/Boucle sur toutes les usf que je veux afficher :
- Activer la USF
- la Capturer
- Paster l'image dans la feuille
- positionner et redimensionner l'image à mon gout
- cacher la USF
2/ Imprimer la feuille
Je te remercie d'avoir pris le temps de me répondre.
Charmout
"Michel Pierron" wrote:
Bonjour Charmout;
Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur
l'userform déclenche l'insertion de l'image de l'userform dans la cellule
active, lance l'impression puis dans la foulée, détruit l'image insérée.
Dans le module UserForm:
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _
, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not Button = 2 Then Exit Sub
Dim ImgName As String
OpenClipboard 0&
EmptyClipboard
keybd_event 44, 1, 0&, 0&
CloseClipboard
AppActivate Application.Caption, True
' L'image est collée dans la cellule active !
ActiveSheet.Paste
ImgName = Selection.Name
Application.CutCopyMode = False
ActiveSheet.PrintOut Copies:=1
ActiveSheet.Shapes(ImgName).Delete
End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus
compliqué.
MP
"Charmout" <Charmout@discussions.microsoft.com> a écrit dans le message de
news:89A57AA5-1CA1-40F8-9D78-F8EF470BE41D@microsoft.com...
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le
tout (cellules, graphiques, boutons, userform...)!
Ta solution me convient parfaitement. Je t'avoue qu'hier j'avais commencé à y reflechir dans ce meme esprit !
Pour plusieurs usf, je compte m'y prendre de cette facon : 1/Boucle sur toutes les usf que je veux afficher : - Activer la USF - la Capturer - Paster l'image dans la feuille - positionner et redimensionner l'image à mon gout - cacher la USF 2/ Imprimer la feuille
Je te remercie d'avoir pris le temps de me répondre. Charmout
"Michel Pierron" wrote:
Bonjour Charmout; Pour un UserForm non modal sur ta feuille; un clic avec le bouton droit sur l'userform déclenche l'insertion de l'image de l'userform dans la cellule active, lance l'impression puis dans la foulée, détruit l'image insérée. Dans le module UserForm: Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _ , ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub UserForm_MouseDown(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Button = 2 Then Exit Sub Dim ImgName As String OpenClipboard 0& EmptyClipboard keybd_event 44, 1, 0&, 0& CloseClipboard AppActivate Application.Caption, True ' L'image est collée dans la cellule active ! ActiveSheet.Paste ImgName = Selection.Name Application.CutCopyMode = False ActiveSheet.PrintOut Copies:=1 ActiveSheet.Shapes(ImgName).Delete End Sub
Pour plusieurs UserForm présents sur la feuille, ce sera un peu plus compliqué. MP
"Charmout" a écrit dans le message de news:
Bonjour,
Mon classeur contient des userform (en non-modal)
Je souhaiterais disposer quelques une sur une feuille Excel et imprimer le tout (cellules, graphiques, boutons, userform...)!
