Discussion :

[abennis]

Bonjour

Je suis en train de créer ma propre barre d'outils avec mes propres boutons.
Parmi ces boutons, l'un d'entre eux, qu'on va appeler "Inserer image", doit servir à :

- Insérer une image dans ma feuille Excel, à partir d'un fichier
- Eventuellement selon les cas, appliquer quelques traitements simples à cette image (déplacement, redimensionnement)

Alors pour tout ce qui est insertion , déplacement, redimensionnement, et même algorithmie (le "selon les cas"), je m'en sors, ça marche nickel.

Là où je me mélange carrément les pinceaux, c'est :

Comment distinguer les images que je créee les une des autres ? (au niveau des noms).

Parce que dans mon code je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'Début de la macro
Dim response As Variant
Dim nomFichier As String
 
With UserForm1.CommonDialogInsererImage
    .CancelError = False
    .DialogTitle = "Inserer une image"
    .Filter = "Images (*.bmp;*.jpg;*.gif;*.ico;*.png)|*.bmp;*.jpg;*.gif;*.ico;*.png|Tous les fichiers (*.*)|*.*"
    .FilterIndex = 1
    .InitDir = CurDir
    .Filename = ""
    .ShowOpen
    nomFichier = .Filename
End With
 
' Si choix = Ouvrir
If nomFichier <> "" Then
Dim ImageInseree As New image
ImageInseree.Picture = LoadPicture(nomFichier)
UserFormOptions.Show

Puis dans ma UserForm UserFormOptions, l'utilisateur peut cocher des options qui font qu'on appliquera ou non certains traitements à l'image qui vient d'être insérée.
Une fois les options cochées, il clique sur un bouton "OK", d'où une Sub
CommandButtonOk_Click()
Et dans cette Sub, je ne sais pas comment désigner mon image (avec quel nom de variable la manipuler ? ImageInseree ? )

Puis si je réinsère une image derrière, elle aura le même nom de variable ?

J'espère que je suis pas trop "pas clair".

Please help !

[zazaraignée]

Les images et tout autre objet qu'une cellule font partie d'une collection Shapes. Il me semble que le premier indice de cette collection est zéro et que tu peux en avoir le nombre d'occurences via la propriété Count.

[abennis]

Donc quand je crée une image avec un
Dim monimage as New Image

on la retrouve automatiquement dans la collection Shapes ensuite ?

[zazaraignée]

Pour faire plus pratique tu peux créer un tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private TabImages() As Picture ' tableau dynamique (encore vide)
 
Sub Procedure_Evenement()
    Redim Preserve TabImage(0) ' le premier élément
    Set TabImage(0) = New Picture
    TabImage(0) = LoadPicture("chemin\fichierimage.bmp")
End Sub

Le mieux, c'est de dimentionner le premier élément dans le Form_Load et de tester sur le plus trand indice (fonction UBound) avant d'en ajouter d'autres.