Discussion :

[Romain_76]

Bonjour à tous,

Je développe un petit programme qui va générer un bitpmap et le coller dans une cellule Excel.

Jusqu'ici tout va bien, je copie mon bitmap et je vais le coller dans une cellule Excel.

Cependant, le bitmap s'aligne en Top Left de la cellule Excel. Or je voudrais caler ce bitmap au milieu.

J'ai déjà essayé avec la méthode

Code :

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

.Shapes.AddPicture()

mais malheuresement je perds en qualité d'image (je ne sais pas pourquoi), et il faut absolument que j'ai la même qualité que si je faisais un copier coller.... Car à l'impression la différence est flagrante...

Avez vous une idée ?

Merci d'avance,

Romain

[gnain]

Bonjour,
Il faut le positionner, une fois collé.
Quand tu colles ton bitpmap il faudrait aussi lui assigné un nom (si ce n'est pas fait)
en le collant en programmation, alors tu sais la cellule, remplacer Range("A1") par ta cellule

Code :

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

1
2
3
4
5
6
    Dim Sh As Shape
    Set Sh = ActiveSheet.Shapes("nom de ton bitpmap qui a été collé")
    With Range("A1")
      Sh.Left = .Left + (.Width / 2) - (Sh.Width / 2)
      Sh.Top = .Top + (.Height / 2) - (Sh.Height / 2)
    End With

[Romain_76]

Bonjour,

C'est exactement ce que je cherchais à faire !

Merci beaucoup pour ton aide !