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

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2023

• #16

voici l'image plus grande
A toi de voir mes rectifs que voila
ce que j'ai changé
en vba
Set ch = Sheets("MRR").ChartObjects.Add(0, 0, 900, 300)

taille de image1 en user
top=0
left=0
height=256
Width=564
PictureSizeMode=0

pour l'userform
Height=285
Width=576

 

Pièces jointes

• TestImgK.xls

  116.5 KB · Affichages: 1

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juin 2023

• #17

Bonjour @kif , @youky(BJ) ,

Ma p'tite version. Tout le code est dans le module associé à la feuille"RAM".
Un clique sur le bouton alternativement affiche ou efface l'image de la plage :

VB:

Private Sub CommandButton1_Click()
Dim nom$
   On Error Resume Next
   nom = Me.Shapes("ImgAuxil").Name
   If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
   Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   Me.Paste
   Selection.Name = "ImgAuxil"
   Me.Shapes("ImgAuxil").Top = ActiveCell.Offset(1).Top
   Me.Shapes("ImgAuxil").Left = ActiveCell.Offset(, 1).Left
   Application.CutCopyMode = False
End Sub

 

Pièces jointes

• kif-Image Plage- v1.xlsm

  43.1 KB · Affichages: 1

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #18

Ca y est j'ai modifier tt est rentré dans l'ordre

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #19

Bonjour Ma pomme

super ce code hyper rapide

PS: peux tu rajouter svp 2 variables pour la dim de l'image et sa position sur l'ecran ?

Merci d'avance

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juin 2023

• #20

Re,

kif à dit:

: peux tu rajouter svp 2 variables pour la dim de l'image et sa position sur l'ecran ?

Cliquez pour agrandir...

Voici le nouveau code :

VB:

Private Sub CommandButton1_Click()
Const Taille = 85    'pourcentage de réduction 50 => 50 % de la taille initiale)
Const Gauche = 20    'position à partir de la gauche
Const Haut = 40      'position à partir du haut
Dim nom$
   On Error Resume Next
   nom = Me.Shapes("ImgAuxil").Name
   If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
   Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   Me.Paste
   Selection.Name = "ImgAuxil"
   Me.Shapes("ImgAuxil").Top = Haut
   Me.Shapes("ImgAuxil").Left = Gauche
   Me.Shapes("ImgAuxil").Width = Me.Shapes("ImgAuxil").Width / 100# * Taille
   Me.Shapes("ImgAuxil").Height = Me.Shapes("ImgAuxil").Height / 100# * Taille
   Application.CutCopyMode = False
End Sub

 

Pièces jointes

• kif-Image Plage- v2.xlsm

  44.3 KB · Affichages: 0

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #21

voila

j'ai fait ca

Dim nom$
On Error Resume Next
nom = Me.Shapes("ImgAuxil").Name
If nom <> "" Then Me.Shapes("ImgAuxil").Delete: Exit Sub
Sheets("MRR").Range("B48:M59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Me.Paste
Selection.Name = "ImgAuxil"
Me.Shapes("ImgAuxil").Top = ActiveCell.Offset(1).Top
Me.Shapes("ImgAuxil").Left = ActiveCell.Offset(, 1).Left
Me.Shapes("ImgAuxil").Top = 100
Me.Shapes("ImgAuxil").Left = 100
Me.Shapes("ImgAuxil").heigth = 400
Me.Shapes("ImgAuxil").Width = 500
Application.CutCopyMode = False

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #22

j'avais pas vu ta répondu e mm temps !


Cool merci beaucoup

salutations

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #23

Tite question et il possible de mettre un PNG en tant que image du bouton
A part un JPG je n'arrive pas à remplacer l'image du bouton ?

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #24

voici l'image du bouton

 

Pièces jointes

• Bouton.png

  57.8 KB · Affichages: 8

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juin 2023

• #25

Re,

kif à dit:

Tite question et il possible de mettre un PNG en tant que image du bouton
A part un JPG je n'arrive pas à remplacer l'image du bouton ?

Cliquez pour agrandir...

• On n'utilise plus de commandbutton
• Par le menu Insertion, on insère l'image ".png".
• Via un clique-droit sur l'image insérée, on affecte la macro (de type public) qui se trouve dans le module de la feuille "RAM"

 

Pièces jointes

• kif-Image Plage- v3.xlsm

  81.4 KB · Affichages: 5

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #26

Nickel je teste

Par contre je suis bloqué car je ne peux pas mettre de xlsm (que du XLS)
de plus j'ai des target interception dans mon code d'origine ce qui je pense va etre en conflit avec cette macro de type public....

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Juin 2023

• #27

Re,

Sans un fichier représentatif, difficile de te répondre. Mais si tu as pu faire fonctionner la solution de @youky(BJ), c'est que ton fichier accepte les macros donc devrait accepter aussi les miennes (me semble-t-il).

 

Vote positif 0 Vote négatif

K

kif

XLDnaute Occasionnel

• 6 Juin 2023

• #28

j'ai contourné en inserant une image et en affectant un jpg en fond d'image via mles propriétés

je pense que c'est mon format PNG qui n'est pas compatible

 

Pièces jointes

• screen.jpg

  85 KB · Affichages: 7

Vote positif 0 Vote négatif