dessiner un rond Ø 120mm

[capricorne68]

bonjour tous le monde

comment dessiner un rond parfait de diametre 120mm avec la barre d'outil dessin et que a l'impression , il ne s'imprime pas en forme excentré , mais en rond parfait comme à l'ecran.

merci

 

[jeanpierre]

Re : dessiner un rond Ø 120mm

Bonsoir capricorne68,

A te dire, j'ai déjà eu ce problème à résoudre, mais à l'époque sans l'aide d'XLD, et je n'y suis jamais parvenu.

L'impression est très différente de ce que l'on voit, notamment sur des formes.

Regarde par Aperçu avant impression, le problème existe déjà.

Il va te falloir modifier à l'écran ton dessin (le déformer) pour qu'à l'impression il soit correct, ici et dans ton exemple hauteur 5.66 et largeur 5.19 pour que dans l'aperçu ce soit tel que tu le désires. Reste à voir ensuite si l'imprimante va suivre.

Pas d'autre solution pour moi.

Bonne soirée.

Jean-Pierre

 

[noviceAG]

Re : dessiner un rond Ø 120mm

Bonsoir capricorne, jeanpierre, le Forum,

J'ai fait un essai et si je met dans le format de la forme hautreur 5,19 et largeur 5,19, j'obtiens bien un rond à l'impression.
Au plaisir et bonne soirée

 

[capricorne68]

Re : dessiner un rond Ø 120mm

bonjour j-pierre , noviceAG

merci de vos reponses , je vais devoir faire des essais et adapter mon cercle suivant le resultat de l'impression .

a+

 

[pierrejean]

Re : dessiner un rond Ø 120mm

bonjour a tous

En theorie cette macro devrait donner un cercle de 12 cm (on suppose que l'image est la seule sur la feuille sinon adapter 1 )

sub test
ActiveSheet.Shapes([COLOR=red]1[/COLOR]).Width = Application.CentimetersToPoints(12)
ActiveSheet.Shapes([COLOR=red]1[/COLOR]).Height = Application.CentimetersToPoints(12)
end sub

En pratique (et surtout apres avoir imprimé) ,il y aura surement a ajuster

 

[capricorne68]

Re : dessiner un rond Ø 120mm

bonsoir pierrejean , le forum

ca fonctionne , apres un petit ajustement .

merci