Menu

Mise en forme image [Résolu]

Juduno - 5 juil. 2017 à 10:50 - Dernière réponse :  Juduno
- 5 juil. 2017 à 11:24
Bonjour,

j'insère mes images comme ceci

 i = 4   
While i < 29
If ActiveSheet.Range("C" & i).Value < ActiveSheet.Range("B" & i).Value - 5 Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley vert.png")
With objPict
.Left = Range("D" & i).Left
.Top = Range("D" & i).Top
End With
End If
If ActiveSheet.Range("C" & i).Value >= ActiveSheet.Range("B" & i).Value - 5 And ActiveSheet.Range("C" & i).Value < ActiveSheet.Range("B" & i).Value - 1 Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley jaune.png")
With objPict
.Left = Range("D" & i).Left
.Top = Range("D" & i).Top
End With
End If
If ActiveSheet.Range("C" & i).Value >= ActiveSheet.Range("B" & i).Value Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("D:\0 - Services\Industries\CLeanergie\icon classement poste\simley rouge.png")
With objPict
.Left = Range("D" & i).Left
.Top = Range("D" & i).Top
End With
End If
i = i + 1
Wend


donc comme je ne connais pas le nom je ne peux pas supprimer l’arrière-plan

alors voici mes questions :

- comment connaître ou définir un nom par rapport à mon insertion d'image ?
- comment en vba supprimer l'arrière-plan d'une image ?

c'est pas marrant si je savais faire la deuxième question ^^

merci d'avance
Afficher la suite 

1 réponse

Répondre au sujet
0
Utile
première question résolu

faut faire
.Name = "test 1"
Commenter la réponse de Juduno