Bulles infos

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Mars 2019

• #2

Bonsoir @patrick,

Un essai, sans doute loin d'être parfait, mais qui est relativement simple.

 

Pièces jointes

• patrick- bulle info- v1a.xlsm

  24.5 KB · Affichages: 13

Vote positif 0 Vote négatif

P

patrick

XLDnaute Nouveau

• 20 Mars 2019

• #3

je te remercie pour ta réponse rapide et efficace. c'est parfait !!
encore une fois un grand merci.
je te souhaite une bonne fin de soirée.
au plaisir.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Mars 2019

• #4

Re @patrick,

Attention! Vérifie bien que la propriété ControlTypeText de Label1 soit à vide. Ce n'était pas le cas dans la version 1 que j'ai remplacée par la version v1a.

 

Vote positif 0 Vote négatif

P

patrick

XLDnaute Nouveau

• 20 Mars 2019

• #5

ok.merci encore
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Mars 2019

• #6

Bonsoir patrick, mapomme,

Ce n'est guère plus compliqué avec un contrôle image et ici et le format du commentaire est copié :

VB:

Private Sub UserForm_Initialize()
Dim s As Shape, fichier$
Set s = [D6].Comment.Shape
fichier = ThisWorkbook.Path & "\MonImage.jpg"
s.CopyPicture Format:=xlBitmap
'---création du fichier JPEG---
With ActiveSheet.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
    .Paste
    .Export fichier, "JPG"
    .Parent.Delete
End With
'---chargement---
With Image1
    .Width = s.Width
    .Height = s.Height
    .Picture = LoadPicture(fichier)
    .Visible = False
End With
Kill fichier
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible = True
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible = False
End Sub

Bonne nuit.

 

Pièces jointes

• bulle info(1).xlsm

  28.7 KB · Affichages: 11

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mars 2019

• #7

Bonjour patrick, mapomme, le forum,

Fichier (2) avec dimensionnement de l'UserForm.

Bonne journée.

 

Pièces jointes

• bulle info(2).xlsm

  29.8 KB · Affichages: 10

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Mars 2019

• #8

Bonjour à tous, bonjour @job75

job75 à dit:

Fichier (2) avec dimensionnement de l'UserForm.

Cliquez pour agrandir...

Très très bien. Mais sur Excel 2010, il faut que le commentaire de la cellule ne soit pas masqué. Est-ce également le cas sur ta version ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mars 2019

• #9

mapomme à dit:

Mais sur Excel 2010, il faut que le commentaire de la cellule ne soit pas masqué. Est-ce également le cas sur ta version ?

Cliquez pour agrandir...

Oui c'est le cas sur Excel 2013, et je pense que c'est le cas sur toute version.

Du coup dans ce fichier (3) j'ai complété le code pour pouvoir masquer le commentaire.

 

Pièces jointes

• bulle info(3).xlsm

  30.4 KB · Affichages: 12

Vote positif 0 Vote négatif