Discussion :

[ouskel'n'or]

J'insère des images (jpg) que je parviens à re-dimensionner sans difficulté. Par contre, je souhaiterais supprimer une partie de ces images.
Ces parties sont toujours sur le pourtour de l'image (au-dessus et au-dessous ou à gauche et à droite) et sont toujours de couleur noire... si cela pouvait faciliter la solution.
A défaut de solution toute faite, une orientation de recherche me conviendrait parfaitement.
Par avance, merci.

[ucfoutu]

Bonjour Ousk,

Je vois mal comment tu pourrais t'en sortir autrement qu'en "créant" un hdc... puis en l'utilisant avec des fonctions de l'Api de Windows... (et même ainsi : dur dur de garder la persistannce de ton image, ensuite !...)

Avec VBA, en outre : même pas de stdpicture ...

[ouskel'n'or]

Hello ucfoutu,
Merci de ta réponse même si elle n'est pas faite pour m'encourager
Par contre, j'ai cherché sur le web une explication pour HDC et la plus proche que j'ai trouvée est "Harley Davidson Club"
Comme je doute que ce soit de ça dont tu parles, peux-tu éclairer mon ignorance ?
Par avance, merci.

PS - J'ai trouvé stdpicture. Je lis...

[ucfoutu]

Oh...

Un HDC est tout simplement un le Handle d'un Contexte de Dispositif) H pour Handle, D pour Device et C pour Context.

VBA, iconnépaçà !

[JackOuYA]

bonjour,


en fait tu veux modifier la zone affichée de l'image pour supprimer le noir..?

et rendre le "noir" couleur transparante ..? cela ne pourrai pas te convenir ?

Code :

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

1
2
    Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
    Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(0, 0, 0)

[philben]

bonjour,

je vois deux solutions :
1) Mieux cadrer tes prises de vue
2) Utiliser la classe GDI+ d'Arkham46

A+

Philippe

[ucfoutu]

Le noir en transparent rendra "transparent" tout pixel noir...

En outre : il est rare que des "bordures/déchets" soient 1) RGB(0,0,0) et 2) parfaitement unies.... (sauf si ainsi créées de toutes pièces).

Si tes bordures à supprimer proviennent d'une image scannée (ma boule de crystal ?) : oublie la solution "couleur transparente" ...

[ucfoutu]

Bonjour philben,

peux-tu m'expliquer comment, sans HDc, tu comptes assurer un traitement, puis la persistance, avec GDI + ?

[ouskel'n'or]

@ucfoutu
En effet, c'est le C.. de texte que je ne comprenais pas.
Pour le Handle, il me semblait bien que bbil avait offert une solution... pour un userform... http://excel.developpez.com/faq/inde...=Form#UFhandle
@JackOuYA
Non, la transparence ne règlerait pas mon pb dans tous les cas d'utilisation de l'image puisqu'elle aurait les mêmes dimensions. En outre, cela risquerait d'altérer l'image.
Mais merci malgré tout.
@philben

1) Mieux cadrer tes prises de vue

C'est malin !

2) Utiliser la classe GDI+ d'Arkham46

Je lis le pdf proposé et je reviens. Mais à première vue, et quand je lis ça : les points sont déjà définis. Et ce que cherche à faire c'est précisément les définir
Mais là encore, merci pour l'idée.

[ucfoutu]

@ucfoutu
En effet, c'est le C.. de texte que je ne comprenais pas.
Pour le Handle, il me semblait bien que bbil avait offert une solution... pour un userform...

Je n'ai pas, non plus, le moindre problème en ce qui concerne l'utilisation du HDC d'une UserForm (je sais faire, y compris dessiner sur une UserForm)...
Bien ... et ensuite, hein ?... pas possible d'assurer la persistance !!! ... That's the "small" problem, mate ! ...

[JackOuYA]

Je n'ai pas, non plus, le moindre problème en ce qui concerne l'utilisation du HDC d'une UserForm (je sais faire, y compris dessiner sur une UserForm)...
Bien ... et ensuite, hein ?... pas possible d'assurer la persistance !!! ... That's the "small" problem, mate ! ...

pas besoin de dessiner ! il sagit de trouver la "taille" de la portion en noir pour définir la zone à afficher ...(que viens faire la persistance ici !)

[ucfoutu]

Maintenant (et si la chose t'est indispensable et que la solution t'intéresse) : je peux (au retour de ma promenade à la mer) te faire un exe en VB pour traiter ton image et en transformer le fichier.... il te suffira alors de :
1) choisir ton fichier image
2) traiter par mon exe
3) importer la nouvelle image (le fichier transformé).

[ouskel'n'or]

Hello ucfoutu,
Tu peux casser ta boule de cristal, j'explique tout ici
La méthode décrite reste bonne pour envoyer des photos de taille réduite sans altérer leur qualité d'affichage à l'écran, tant à l'aide de l'aperçu Windows qu'en diaporama PowerPoint (si ce n'est pas dans un but de projection sur grand écran).
L'inconvénient du cadre noir survient en cas d'édition ou d'insertion dans un document.
C'est là mon problème.
Je précise tout de même qu'une fois définies les dimensions des "cadres", il le sera une fois pour toutes. Là n'est pas l'essentiel puisque je peux les évaluer par ailleurs.
La difficulté est bien de dire "l'image commence ici et finit là, récupérer l'image et rien de plus". Revient à vouloir découper un bout d'une copie d'écran.
Si j'insiste un peu, c'est qu'il me semble que j'ai eu vu passer un thread qui traitait le sujet. Hélas, je ne l'ai pas retrouvé.

Je n'ai rien d'autre à te proposer que ce que je t'ai proposé, ousk ...

C'est mieux que ce que j'attendais. Ça pourrait en effet et sans doute me convenir. Par contre, ton exe prendrait-il en charge un jpg ?

[ucfoutu]

Jpg ? Oui, sans problème ...

[ouskel'n'or]

A propos de l'exe, il faudrait pouvoir lui envoyer les paramètres de hauteur et de largeur (ou de left et width de l'image dans son cadre pour les images en mode portrait ou top et Height pour les images en mode paysage) Au départ, avec leur cadre, elles ont toutes la même largeur et la même hauteur. Il devra donc reconnaître s'il sagit d'un mode ou de l'autre (Portrait/paysage). De mon côté je le fais en identifiant la plus grande dimension après insertion de l'image mais avant copie d'écran de l'image affichée.
Je n'ai plus VB6 sur mon micro sinon je tenterais bien l'aventure, le temps est gris et j'ai fini les bouquins que j'avais à lire...
Merci de te pencher sur mon triste sort

PS - Je crois effectivement que c'est sur VB que j'avais vu quelque chose à propos d'un travail sur les images.

[ucfoutu]

Peu importe, il me semble, puisque l'exe VB va :
1) ouvrir l'image du fichier
2) traiter les pixels
3) restituer les dimensions originales par un strechblt
4) écraser le fichier par celui correspondant à l'image transformée

Tu te retrouveras donc in fine avec un fichier contenant une image de dimensions identiques à ce qu'elles étaient au départ et c'est ce fichier dont tu auras à insérer l'image dans VBA, exactement comme avant.

[ouskel'n'or]

Hello,

Tu te retrouveras donc in fine avec un fichier contenant une image de dimensions identiques à ce qu'elles étaient au départ

Qu'on se comprenne bien :
................Avant j'ai ou
Après, je souhaite avoir ou
C'est de ça dont tu parles ?

Edit
Je connais la largeur des marges noires, que ce soit proportionnellement à l'image (%) ou en pixels, en hauteur ou en largeur.

[ucfoutu]

Je connais la largeur des marges noires, que ce soit proportionnellement à l'image (%) ou en pixels, en hauteur ou en largeur.

Communique-moi alors ces données (celà va faire gagner du code mais également du temps de traitement car je n'aurais pas à parcourir l'image, même partiellement, pour déterminer ces dimensions).
En pixels, ce serait très bien. Mais en proportions également, bien qu'alors il faudra exécuter un petit calcul (pas très lourd)

Je m'y mets dès cette communuication.

[ucfoutu]

Bon, ousk,

Je suis déjà presque prêt ...

Me manquent tes infos...
Pour l'instant, j'en suis déjà à avoir terminé en passant la jpeg en stdpicture.
Tes bordures sautent et je sauvegarde en .bmp
Tout celà fonctionne déjà.

Et tes infos ?

[ouskel'n'or]

Désolé mais j'ai dû m'absenter
En mode Paysage : Width 966, Height 774
En mode Portrait : Width 620, Height 774

Mais si je pouvais les paramétrer, ce serait mieux.
Merci