Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 all object to png files

patricktoulon

XLDnaute Barbatruc
Bonjour à tous
certains d'entre vos connaissent déjà mes deux fonction all to png file (compatible 100% avec le html)pour les autres bien venu
a la base ces fonctions ont été conçues sur W7 office 2007
une avec l'export en html du classeur et l'autre en zip
j'avais fini par adopter celle en htm car plus rapide

mais je me rends compte depuis quelque jours qu'avec W10 et 2013 ben c'est la méthode Zip qui l'emporte haut la main
j'ai pris la décision de revoir donc cette méthode en terme d'argument d'object envoyée à la fonction (quoi et comment)

on peut donc aujourd'hui demander à la fonction de :
1°copier tout objects(shape,picture chart,etc...) en un seul coup simplement par la collection "Shapes"
2° une shape
3° une plusieurs plage par range
4° array d'objects divers

c'est déjà un plus par rapport aux versions précédentes

j'ai 2 questions
1° avez vous des idées d'amélioration
2 savez vous comment je pourrais faire pour garder le nom "imageX" (X représente un nombre)
car en effet l'object.name me donne "Picture14" au lieu de "Image14"
a part bien sur un replace (qui me priverait de nom avec "picture")
merci d'avance pour les bonnes volontés
 

Pièces jointes

  • 1 Export shape and picture and range to pngfile Version Unzip 2023 .xlsm
    100.2 KB · Affichages: 13

patricktoulon

XLDnaute Barbatruc
bonjour tous
j'ai donc revu les deux versions (export html et unzip) de la même manière

testez et dites moi le quel est le plus rapide en donnant votre versions de Windows et office

pour les Mac je ne suis pas sur ,mais seulement la version html pourra fonctionner

merci pour vos retours
 

Pièces jointes

  • 1 Export shape and picture and range to pngfile Version Unzip 2023 .xlsm
    101.5 KB · Affichages: 9
  • 1 Export shape and picture and range to pngfile Version BY EXPORT HTML 2023 .xlsm
    101.9 KB · Affichages: 8

patricktoulon

XLDnaute Barbatruc
re
non j'ai 3 pc dont un neuf w10 un très ancien W7 et l'autre moyennement ancien avec 2 expoit W7 et W10
sur celui là dans l'exploit W10 il y 2013 et l'autre exploit il y a office 2007

quand je suis sur W7 c'est le html le plus rapide
quand je suis sur W10 c'est le unzip qui est plus rapide
sur le neuf c'est la méthode unzip qui est plus rapide

alors qu'importe vos configs testez les deux et donnez moi votre retour
 

Lolote83

XLDnaute Barbatruc
Bonjour Patrick,
Voici en fichier joint un petit récapitulatif des tests effectués.
Je n'ai pas remarqué de rapidité de l'un par rapport à l'autre. Cela fonctionne bien sauf sur 2 items. Voir fichier joint.
Encore une fois je renouvelle mes félicitations.
Cordialement
@+ Lolote83
 

Pièces jointes

  • En réponse à Patrick TOULON.pdf
    270.8 KB · Affichages: 8

patricktoulon

XLDnaute Barbatruc
Bonjour @Lolote83
Wouawouh!! ça c'est de la réponse comme je les aimes
précises concises et structurées et détaillées
si je pouvais avoir des réponses comme ça tout le temps ,je serais le plus heureux du monde
certains pourraient en prendre exemple
je vais donc chercher pourquoi le mixte et le shape seul ne fonctionne pas
pour le range je pense que j'ai déjà ma petite idée
il se trouve que copy et copypicture ne fonctionne pas de la même manière sur les versions sup en 64
je pense que je vais copypicture et non copy tout court
je pense que ça doit être cela aussi pour le mixte quand j'arrive au range
en tout cas je le redis WouwaWhou!!!
et là c'est moi qui te félicite
 

Lolote83

XLDnaute Barbatruc
Re bonjour,

Je trouve tout a fait normal que l'on pose une question ou que l'on y réponde d'être le plus precis possible.

Cela évite donc, lors d'une question
- que le contributeur ne se casse la tête
- que du coup la réponse apportée soit aussi claire que la demande
- et on peut parfois même tomber à coté car mauvaise compréhension

Cela évite donc, lors d'une réponse
- d'apporter au demandeur le plus d'explications possibles
- de donner des pistes de recherche au demandeur afin qu'il puisse à son tour progresser
- de ne pas tomber à coté de la plaque (quoi que ....)

Bref, au plus la demande ou la réponse est claire, précise et cohérente, au mieux c'est pour tout le monde, et cela évite parfois aussi, d'avoir des discutions avec 50 000 réponses.

Juste pour préciser. J'ai fait les tests au bureau avec l'environnement donné. A la maison, j'ai un autre PC (avec environnement différent). Je ferais aussi les tests.


@+ Lolote83
 

patricktoulon

XLDnaute Barbatruc
re
tout à fait d'accords avec toi en tout points
surtout les discussions de 50 000 réponses

un exemple ma discussion sur mon croper d'image
ils ont pas arrête de me dire le w et le H n'est pas bon dans ta formule(vba)
moi quand je fait w=activesheet.shapes("toto").width
j'estime la chose tellement simple qu'il n'y a pas ambiguïté
au bout de x message(et un sacré paquet) ils me disent enfin (avec d'autre mots)
"mais a l'insertion l'image est réduite avec insertpicture
chose que j'ai testé 10 secondes et le problème était réglé
alors que je cherchais l'erreur dans le calcul dans mon code
apres une recherche il s'avère effectivement que l'insertion se limite au plus proche de 800*600
alors qu'avec addpicture les argument de zize à true laisse l'image à sa taille d'origine

je suis une personne assez carré(peut être un manque de flexibilité je l'accorde )
j'aime les choses claires et concises
là franchement tu m'a fait plaisir
c'est moi qui te dis BRAVO!!
 

Lolote83

XLDnaute Barbatruc
Re re bonjour,
Pour ma part, je ne suis peut être pas tout a fait "carré". J'ai quelques angles arrondis (désolé)
Donc, en ce qui me concerne, quand je fais une demande (pas beaucoup) mais cela m'est arrivé. J'essaye d'être effectivement le plus précis dans mes demandes (peut être trop) afin que le contributeur cible la demande sans avoir à se creuser la tête et dire : "mais qu'est ce qu'il veut au fond... Pas clair tout cà ...."
Et en ce qui concerne mes réponses (il y a en beaucoup plus) j'essaye aussi d'apporter la réponse la plus claire et précise en fonction de la demande. Avec des copies d'écran, des exemples ou autres.
Tous les fichiers auxquels je réponds sont du style : Copie de PatrickToulon - fichier xxx avec à l'intérieur :
- Le lien vers le site afin de retrouver systématiquement la demande initiale
- Le nom de l'auteur
- Éventuellement les noms de s participants .....
C'est aussi comme cela dans ma vie. J'ai tendance à être parfois trop précis. Des mais à rallonge pour expliquer telle ou telle chose et on me dit souvent : "C'est bon Lolote83, ça va, on a compris, ce n'est pas la peine d'en rajouter."
Bref, cela a aussi ces avantages.
Pour finir, et pour ne pas arriver à 50 000 posts sur ce sujet, je vais m'arréter là.
Bonne journée et à bientôt sur le forum en espérant que nous nous recroiseront.
@+ Lolote83
 

Lolote83

XLDnaute Barbatruc
Re bonjour,
Après tests effectués sur le fichier du post#12.
Au premier lancement, aucun problème rencontré comme au deuxième lancement.
Je ferais également des test depuis la maison et te donnerai un retour rapidement (j'espère)
@+ Lolote83
 

Lolote83

XLDnaute Barbatruc
Re,
Juste pour le fun.
Perso, j'aurais rajouté quelques boutons associés au différentes macros de façon à ce que les testeurs, qui ne connaissent peut être pas assez le VBA puissent directement lancer les macros sans avoir à ouvrir le VBA et faire F8 puis F5 pour lancer chaque macro.
C'est juste mon esprit "carré"
Voir ci dessous


Avec les macros renommées
-Sub A_Test_Toutes_Les_Shapes4()
-Sub B_Test_une_shape4() etc etc etc

@+ Lolote83
 

Pièces jointes

  • 1680771564773.png
    45.5 KB · Affichages: 19
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…