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
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
A voir également:
- Transparence image excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Image iso - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
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
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
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)]
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)]
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
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
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
15 févr. 2011 à 08:33
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
15 févr. 2011 à 12:38
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å