Changer transparence d'un objet dans Exel

llol82 -  
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Dans Exel,
je voudrais lier la transparence d'un objet au résultat d'une cellule.

Par exemple, si la cellule affiche un nombre entre 10 et 20
alors la transparence de mon objet sera de 10%

Merci.

A voir également:

2 réponses

Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

Eric, en insérant l'image dans une forme, on peut jouer sur la transparence

Sub CreateImgVide()  
Dim fichier As Variant  
   
With Feuil1.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)  
    'Faire le traitement sans image blanche  
    fichier = Application.GetOpenFilename("Tous les fichiers (*.jpg),*.bmp")  
    If fichier = False Then Exit Sub  
    .Fill.UserPicture fichier  
    .Fill.Transparency = 0.5  ' de 0 a 1 - 1 étant completement transparent  
    .Shadow.Visible = msoFalse  
    .Line.Visible = msoFalse  
End With  
End Sub  

Sub Transparence()  
    ActiveSheet.Shapes(1).Select  
    Selection.ShapeRange.Fill.Transparency = 0#  
    Range("F16").Select  
End Sub  

Mytå
--
Merci de donner suite à votre question, nous ne sommes pas des robots...
L'urgent est fait, l'impossible est en cours et pour les miracles; prévoir un délai.
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour myta,

Intéressante ta façon d'ajouter l'image, très concise. Je garde... ;-)

Et tant qu'à l'ajouter par macro, en profiter pour la nommer avec .name="image01",
et utiliser son nom dans le sub Transparence : ActiveSheet.Shapes("image01").Select

eric
0
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Re le forum

Eric, il y a toujours place à l'amélioration.

Je voulais juste montrer que l'on pouvait, sur une image, jouer sur la transparence.

Mytå
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonsoir,

Un début de réponse car je sens que ta question va être plus compliquée que ça.

Oui c'est possible s'il s'agit d'une forme automatique colorée,
et qu'il s'agit d'une saisie et non du résultat d'une formule (sinon il faudra détecter autrement le changement de valeur).
Un exemple en vba : Classeur2.xls
clic-droit sur le nom d'onglet et 'visualiser le code...'

S'il s'agit d'une image je pense qu'il te faudra préparer 10 images en changeant le gamma et afficher l'image correspondante.

eric

PS : pas sûr de pouvoir suivre le fil, si d'autres veulent intervenir...
où bien tu reposes une nouvelle question selon l'orientation que tu auras choisi
0