Problème d'insertion d'image : Erreur sur .Insert

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

je reçois "unable to get the Insert property of The Picture Class" sur l'instruction en gras du code suivant :
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 30 Sub Format() Dim pcx_name As String For i = 5 To 561 pcx_name = "G:\Emballage\Profiles\" & ActiveSheet.Range("A" & i) & ".PCX" Range("B" & i).Select ActiveSheet.Pictures.Insert(pcxname).Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 42.75 Selection.ShapeRange.Width = 57.75 Selection.ShapeRange.Rotation = 0# Rows(i).Select Selection.RowHeight = 48 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Next End Sub
Faut-il une référence spéciale dans VBA ?
La Variable PCXname vaut "G:\Emballage\Profiles\03442.PCX".
L'image existe bien.

le code suivant enrégistré par l'enregistreur de macro fonctionne.
Code:

1 2 3 Range("B5").Select ActiveSheet.Pictures.Insert("G:\Emballage\Profiles\03442.PCX").Select
merci pour votre aide:bug:

08/08/2008, 12h50
fring

Bonjour,

Tu connais le jeu des 7 erreurs ? :mouarf:

Dim pcx_name As String
pcx_name = ...
Insert(pcxname)

:oops:

Bonjour Fring,
bad Friday pour moi apparement.

J'ai corrigé les 7 erreurs mais même topo.

Code:

1
2
3
4
5
6
7
8
9
 
Sub Format()
Dim pcx_name As String
 
For i = 5 To 561
    pcx_name = "G:\Emballage\Profiles\" & ActiveSheet.Range("A" & i) & ".PCX"
    Range("B" & i).Select
 
    ActiveSheet.Pictures.Insert(pcx_name).Select

J'ai testé avec un fichier GIF (je n'ai pas de PCX) et pas de problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Format()
Dim pcx_name As String, i As Integer
 
For i = 5 To 576
    With Rows(i)
        .RowHeight = 48
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
 
    pcx_name = "D:\My documents\My Pictures\" & Range("A" & i) & ".gif"
 
    With ActiveSheet.Pictures.Insert(pcx_name)
        .Height = 42.75
        .Width = 57.75
        .Top = Range("B" & i).Top + (Range("B" & i).Height / 2) - (42.75 / 2)
        .Left = Range("B" & i).Left + (Range("B" & i).Width / 2) - (57.75 / 2)
    End With
 Next
 
 End Sub

Tu es certain que Range("A" & i) contient bien le nom du fichier image ?

08/08/2008, 16h04
Godzestla

Rere,

oui oui, B5 contient 03442 et comme indiqué plus haut en debug après la plante

Citation:

La Variable PCXname vaut "G:\Emballage\Profiles\03442.PCX".

:roll:
08/08/2008, 17h26
fring

tu peux joindre un de tes fichier pcx que je puisse tester ?
08/08/2008, 19h27
Godzestla

Je dois me brancher sur le serveur pour cela.

Je le fais et en même temps je te mets le code VBA.

Merci d'avance.
08/08/2008, 20h14
Godzestla

Voilà le matos.

J'ai changé le code pour lire sur mon Stick USB (drive J)
Marche pas non plus.

Et j'ai simplifié le fichier excel à 6 lignes.

Et encore merci.
08/08/2008, 20h18
ucfoutu

Bonsoir,

Suis attendu et déjà en retard...
Je sors donc mais offre de la lecture en attendant :

http://www.pcreview.co.uk/forums/thread-2122162.php

Il s'agit là de Word, mais je pense qu'il en va de même en ce qui concerne Excel
08/08/2008, 20h24
Godzestla

Merci Ucfoutu.

Sacré non de dieu de m......

Il semble que cela ne marche donc pas. Pourtant en direct ca marche.

Voir la macro1 de mon attachement enregistrée par l'enregistreur de macro. Et si on la relance, elle tourne.

Tidju.. Encore un bug....? :aie::bug:
08/08/2008, 20h26
Godzestla

Citation:

Suis attendu et déjà en retard...

Bonne soirée Ucfoutu.
08/08/2008, 22h43
Godzestla

Pour être complet, je voudrais avec ce code insérer +-500 PCX (les plans des outillages sont stockés dans ce format) dans un excel sheet pour satisfaire un client.
A la main pfuiiiiiiiiiiiiiiiiii. :arf:

Mais s'il existe un outil pour convertir en masse les pcx dans un autre format, cela pourrait dépanner.

Merci à vous.
08/08/2008, 22h59
ucfoutu

Re,

des convertisseurs existent, tel ici :

http://www.convertzone.com/all/kw-pcx%20to%20bmp.htm

certains (les meilleurs) d'entre eux ne sont pas gratuits.

J'ignore s'ils sont capables de traiter "en masse", mais il devrait être possible (question à poser à l'offreur) pour certains d'entre eux de lancer le programme avec un paramètre (ligne de commande) .. Dans un tel cas, il suffirait alors de lancer en boucle (en prévoyant une attente entre chaque traitement).

Je n'ai hélàs rien d'autre à t'offir, ce soir...:oops:
08/08/2008, 23h05
Godzestla

C'est déjà très bien, ucfoutu merci.

Merci encore. Je laisse ouvert jusque lundi au cas ou quelqu'un aurait une parade.

A+ Fini pour moi aujourd'hui.
08/08/2008, 23h12
JackOuYA

Bonsoir,

tu as essayé ton code avec un fichier jpg ou gif, voir si c'est vraiment le pcx ton probléme ?
08/08/2008, 23h15
ucfoutu

Celui-ci semble capable de traiter "en masse", mais je ne l'ai pas essayé (à voir) et il faut s'enregistrer ...

http://www.softinterface.com/Convert...onvert-JPG.htm
08/08/2008, 23h24
Godzestla

J'utilise Irfanview et je viens de voir qu'il peut convertir en masse.
http://www.irfanview.com/

De plus il est gratuit et fonctionne très bien pour la visu d'image, de film, et le browsing d'un répertoire,....

Alors à mon avis je serai sauvé lundi.

Encore merci pour ton temps ucfoutu. :yaisse2:

Je n'ai pas la possibilité de le tester chez moi mais à tout hazard essaye ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Format()
Dim pcx_name As String, i As Integer
 
For i = 5 To 561
    With Rows(i)
        .RowHeight = 48
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
 
    pcx_name = "G:\Emballage\Profiles\" & ActiveSheet.Range("A" & i) & ".PCX"
 
    With ActiveSheet.OLEObjects.Add(Filename:=pcx_name)
        .Height = 42.75
        .Width = 57.75
        .Top = Range("B" & i).Top + (Range("B" & i).Height / 2) - (42.75 / 2)
        .Left = Range("B" & i).Left + (Range("B" & i).Width / 2) - (57.75 / 2)
    End With
Next
 
End Sub

Quoi que en supposant que cela fonctionne, je ne sais pas ce que peut donner l'insertion de plus de 500 OLEObjects :?

10/08/2008, 13h03
Godzestla

Fring

Merci pour ton code,
Je viens d'essaier. Cela me donne une icone image pour le dessin mais pas le dessin lui-même.

Citation:

Quoi que en supposant que cela fonctionne, je ne sais pas ce que peut donner l'insertion de plus de 500 OLEObjects

J'en suis pleinement conscient et j'ai répondu comme toi à la demande. Mais le client voudrais vraiment. ;)

JackOuYA

Citation:

tu as essayé ton code avec un fichier jpg ou gif, voir si c'est vraiment le pcx ton probléme ?

Marche nickel avec .JPG :arf:
10/08/2008, 13h14
fring

Citation:

Envoyé par Godzestla

Fring

Merci pour ton code,
Je viens d'essaier. Cela me donne une icone image pour le dessin mais pas le dessin lui-même.

Un dernier essais, modifie cette ligne de code

Code:

With ActiveSheet.OLEObjects.Add(Filename:=pcx_name, Link:=False, DisplayAsIcon:=False)

Voir 40 message(s) de cette discussion en une page