Autres [XL2007] Vba afficher une plages Cellules en image ou pop up

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #2

Bonjour Kif,
Soit utiliser l'appareil photo dispo faut l'ajouter dans les menus
Ou par vba
Bruno

VB:

'adapter C10:E12 et Feuil1 est le codename de l'onglet
Feuil1.Range("C10:E12").CopyPicture xlScreen, xlBitmap
Feuil1.Paste Destination:=Feuil1.Range("A1")

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #3

Bonjour Youky

oui par VBA mais idealement incorporer l'image ou le printScreen dans un UserForm non ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #4

Voici la suite donc,
Adapter la plage le nom des onglet et nom userform
Bruno

Code:

'adapter C10:E12 et Feuil1 est le codename de l'onglet
chemin = ThisWorkbook.Path & "\"
fichier = "AAAImage"
Feuil1.Range("C10:E12").CopyPicture xlScreen, xlBitmap
Feuil1.Paste Destination:=Feuil1.Range("A1")
Set Img = Feuil1.Shapes(Selection.Name)
Set ch = Feuil1.ChartObjects.Add(100, 30, 400, 170)
Feuil1.ChartObjects(1).Activate
ActiveChart.Paste
ActiveChart.Export chemin & fichier & ".gif", "GIF"
ch.Delete
Img.Delete
UserForm1.Image1.Picture = LoadPicture(chemin & fichier & ".GIF")
Kill chemin & fichier & ".GIF"
UserForm1.Show

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #5

J'ai une erreur 1004 ?

Private Sub CommandButton1_Click()

'adapter C10:E12 et Feuil1 est le codename de l'onglet
Chemin = ThisWorkbook.Path & "\"
Fichier = "AAAImage"
Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap
Sheets("MRR").Paste Destination:=Sheets("MRR").Range("A84")
Set Img = Sheets("MRR").Shapes(Selection.Name)
Set ch = Sheets("MRR").ChartObjects.Add(100, 30, 400, 170)
Sheets("MRR").ChartObjects(1).Activate
ActiveChart.Paste
ActiveChart.Export Chemin & Fichier & ".gif", "GIF"
ch.Delete
Img.Delete
UserForm1.Image1.Picture = LoadPicture(Chemin & Fichier & ".GIF")
Kill Chemin & Fichier & ".GIF"
UserForm1.Show

End Sub

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #6

Mets un point d'arrêt sur la 1ere ligne lance la macro et avance ensuite avec F8
On verras ou se situe l'erreur.
Vérifie si tu as bien UserForm1.Image1.Picture
Bruno

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #7

deja ici => Sheets("MRR").Range("B48:J59").CopyPicture xlScreen, xlBitmap

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #8

Peux tu svp le compiler directement dans le fichier que j'ai joint ?

merci d'avance

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #9

du coup il faut rajouter la secetion de l'onglet "RAM" car c'est depuis celui ci que le UserForm doit apparaitre

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #10

Pas de fichier peut être trop volumineux
Bruno

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #11

?

fait 100K

 

Pièces jointes

• TestImgK.xls

  102.5 KB · Affichages: 1

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #12

Voici le fichier
J'ai mis un userform
Bruno

 

Pièces jointes

• TestImgK.xls

  121 KB · Affichages: 4

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #13

Cool merci beaucoup ca fonctionne

Ps: il y a as t'il un moyen de figer la position du USF au démarrage ?

J'ai un double ecran et j'ai la feuille en Ecran 1 et le USF en écran 2 ???

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #14

Tu double-click en projet sur userform1 et affiche les propriétés
StartUpPosition = mets Manuel ou autres
En manuel il se mets en haut à gauche
Si besoin de le placer à un endroit précis
copie se code (click droit de souris sur userform en projet)
afficher le code et colle ce code en modifiant les 100
Private Sub UserForm_Initialize()
Me.Top = 100
Me.Left = 100
End Sub

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #15

Nickel


Ps: si je veux aagrandir l'image dans le usf ?

j'ai modifier les propriétés widht et height mais rien ne se passe

 

Vote positif 0 Vote négatif