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.

2 réponses

  1.
    Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
     
    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
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
    2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   958
       
      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
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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

Discussions similaires

Mettre une image à l'arrière plan et la rendre transparente
Sss97 -
Sss97 -

2 réponses
Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses