[VBA Excel] L'object Pictures dans la feuille de calcul: Élément de langage masqué

bonjour

J'ai rédigé un tutoriel pour décrire l'objet feuille de calcul, ainsi que ses différentes propriétés et méthodes:

http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

Dans ce cadre, l'objet Pictures me pose un cas de conscience:
J'utilise régulièrement cet objet mais l'aide Excel indique qu'il s'agit d'un élémént masqué.

Ma question est donc: pourquoi cet élément est il masqué?
Est ce qu'il existe uniquement pour une compatibilité avec des versions Excel antérieures?

L'objectif de cette question est de savoir s'il est souhaitable de continuer à utiliser l'objet Pictures, ou s'il est préférable d'utiliser l'objet Shapes (msoPicture):

http://silkyroad.developpez.com/VBA/...lcul/#LII-B-38


Toutes vos informations à ce sujet sont les bienvenues.




Est ce qu'une âme charitable pourrait aussi tester les 2 procédures suivantes dans Excel2003, et éventuellement 2007 si cela est possible. (En ce qui me concerne j'ai désinstallé Office2007 car cela me posait malheureusement de gros soucis dans Outlook)

Code:

---

1 2	'Insère une image dans la feuille de calcul Worksheets("Feuil1").Pictures.Insert "C:\dossier\Image2.jpg"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

'Boucler sur toutes les images contenues dans la feuille afin de les 'enregistrer sur le disque:   Sub ExtraireImagesFeuille() Dim Pict As Picture Dim Nb As Byte   Application.ScreenUpdating = False   ' boucle sur les images de la feuille For Each Pict In Worksheets("Feuil1").Pictures 'copie image Pict.CopyPicture   'crée un graphique With ActiveSheet.ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart 'colle l'image dans graphique .Paste 'enregistre le graphique au format gif .Export ThisWorkbook.Path & "\" & Pict.Name & ".gif", "GIF" End With   Nb = ActiveSheet.ChartObjects.Count 'supprime le graphique ActiveSheet.ChartObjects(Nb).Delete Next Pict   Application.ScreenUpdating = True End Sub

---

Nota:
Il est possible que la méthode Export ne fonctionne plus si Excel2007 a été installé sur votre poste ....



bonne journée
michel

Hello Michel,
De bon matin, j'ai déjà fait un effort
VBA 2003 : C'est ok, l'image est bien exportée.gif avec son nom "Picture 1, 2, 3, ..." :lol:
Je cherchais le nom du fichier d'origine ;) alors maintenant j'en ai plein :mouarf:
Pour ce qui concerne l'objet Picture, si tu trouves, tu nous dis parce qu'il y a longtemps que j'ai renoncé à comprendre... On insère l'objet et dans un cas on a un shape, dans un autre un OLEObject et parfois même une picture (au moment de l'insérer) :aie: Je teste presqu'à chaque fois :(


Bonne journée
joël

PS - J'ai repassé les Pictures.gif en .jpg et c'est OK aussi

Hello (re)
Je viens de tester avec Shape en modifiant ces deux lignes

Code:

---

1 2 3

Dim Pict As Shape   For Each Pict In Worksheets("Feuil1").Shapes

---

j'ai le même résultat. Mais je pense que tu le savais ;)

bonjour cher Ouskel'n'or

Merci pour les tests dans Excel2003


bonne journée
michel

J'ai la réponse à ta question :

Citation:

---

Envoyé par Tu

pourquoi cet élément est il masqué?
Est ce qu'il existe uniquement pour une compatibilité avec des versions Excel antérieures?

---

Ton hypothèse est la bonne.

Citation:

---

Envoyé par L'aide

Les objets masqués dans le modèle d'objet de Visual Basic pour Microsoft Excel 97 sont listés dans le tableau suivant. Ces objets ne sont pris en charge que pour assurer une compatibilité descendante. Si vous écrivez du nouveau code, utilisez les nouvelles fonctionnalités proposées par Microsoft Excel 97. Pour afficher les objets masqués dans l'Explorateur d'objets, cliquez à l'aide du bouton droit de la souris dans la fenêtre Explorateur d'objets puis cliquez sur Afficher les membres masqués dans le menu contextuel.

---

La liste de ces objets

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Objets masqués Remplacement Arc, Arcs, Drawing, DrawingObjects, Drawings, Label, Labels, Line, Lines, Oval, Ovals, Picture, Pictures, Rectangle, Rectangles Nouvelles couche de dessin Shapes Button, Buttons, CheckBox, CheckBoxes, DialogFrame, DropDown, DropDowns, EditBox, EditBoxes, GroupBox, GroupBoxes, GroupObject, GroupObjects, ListBox, ListBoxes, OptionButton, OptionButtons, ScrollBar, ScrollBars, Spinner, Spinners, TextBox, TextBoxes Contrôles ActiveX Menu, MenuBar, MenuBars, MenuItem, MenuItems, Menus, Toolbar, ToolbarButton, ToolbarButtons, Toolbars CommandBars Module, Modules modèle d'objet extensibleVBE DialogSheet, DialogSheets Custom Forms DialogSheet, DialogSheets Formulaires personnalisés

---

Si ça peut t'être utile...

Merci Ouskel'n'or

Oui ça m'aide puisque cela confirme la raison du statut "masqué.


encore merci
michel