Changer transparence d'un objet dans Exel

Fermé
llol82 - 14 févr. 2011 à 20:32
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 15 févr. 2011 à 12:38
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 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
Modifié par Mytå le 15/02/2011 à 01:00
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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
15 févr. 2011 à 08:33
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 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
15 févr. 2011 à 12:38
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 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
15 févr. 2011 à 00:10
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