PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → AddShape dans Excel
AddShape dans Excel
Débuté par rita.tabet, 10 nov. 2005 09:03 - 2 réponses
#1
Posté le 10 novembre 2005 - 09:03
Salut,
Je veux transmettre ce code en windev pour dessiner un rectangle dans un champs activeX ou j'ouvre un graphe Excel.
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

j'ai essayer ce code:
:m_xExcel>>ActiveSheet>>Shapes>>AddShape("msoShapeRectangle",544.5,154.5,57,41.25)>>Placement = 3 //xlFreeFloating

mais il me donne une erreur, c'est le type du premier parametre de AddShape: msoShapeRectangle.

" expression.AddShape(Type, Left, Top, Width, Height)

expression Required. An expression that returns a Shapes object.

Type Required MsoAutoShapeType . Specifies the type of AutoShape to create.

MsoAutoShapeType can be one of these MsoAutoShapeType constants.

Left, Top Required Single. The position (in points) of the upper-left corner of the AutoShape's bounding box relative to the upper-left corner of the document.

Width, Height Required Single. The width and height of the AutoShape's bounding box, in points. "


MsoAutoShapeType constants je ne trouve pas leur valeur sur le site http://msdn.microsoft.com/library

j'en ai besoin beaucoup...

Quelqu'un peut m'aider?

Merci d'avance.

Rita Tabet
Unilog CSB
#2
Posté le 10 novembre 2005 - 09:35
sur cette page y'a la facon de trouver toutes les constantes utilisées avec Excel.

Il faut faire un utilitaire en VB pour les sortir

http://support.microsoft.com/kb/239930/

j ai pas trouvé la constante que tu cherche dans XL2000
#3
Posté le 10 novembre 2005 - 09:37
J'ai trouvé...
j'ai ouvert excel et dans basic shapes j'ai compté le numero des Shapes... j'ai eu que l'oval est 9, le rectange est 1...

Merci...
→ Revenir à WINDEV 2024