Question Centimètre/imprimante

Bonjour,

Peut on afficher une image en VBA en cm et surtout peut on l'imprimer en valeur réelle centimètre ?

Merci pour vos réponses

Salut jefekoi

Tu as un problème de cm (blague de mec)

Perso je pense que c'est compliqué mais pas impossible car il faut convertir des points en cm en fonction se la résolution de l'écran

@LouReeD aura peut-être une réponse à ce sujet 😉

Merci BrinoCM :)

Sub Formes()
Dim sh As Shape
ThisWorkbook.Worksheets("Feuil2").Activate
ActiveWindow.DisplayGridlines = False
ZZ = Application.CentimetersToPoints(9.5)
Set sh = ActiveSheet.Shapes("fleche").AddShape(43, 1, 1, ZZ, 30)
sh.Line.Weight = 1
sh.Line.ForeColor.RGB = RGB(0, 0, 0)
sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
End Sub

J'ai un début de quelque chose mais je n'arrive pas à modifier l'erreur Set sh=....

@Jefekoi, BrunoM45

seulement une solution pour votre erreur ...

Sub Formes()
     Dim sh    As Shape
     ThisWorkbook.Worksheets("Feuil2").Activate
     ActiveWindow.DisplayGridlines = False
     ZZ = Application.CentimetersToPoints(9.5)
     ActiveSheet.Shapes.AddShape 43, 1, 1, ZZ, 30
     With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
          .Line.Weight = 1
          .Line.ForeColor.RGB = RGB(0, 0, 0)
          .Fill.ForeColor.RGB = RGB(255, 255, 255)
          .Name = "Fleche"
     End With
End Sub

Merci BsAlv ;)