Bonjour à tous
Cela fait une journée entière que je cherche sans succès comment modifier le Caption d'un bouton créé sur une feuille Excel à partir du lien http://delphi.developpez.com/faq/?page=excelfeuille#excelfeuajbtouton et de lui affecter le nom d'une macro à exécuter.
A l'exécution du codele bouton est créé avec comme Caption : «CommandButton1» mais l'instruction affectant un autre caption déclenche l'erreur EOleException «Membre introuvable».
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 BtnShape := ToolSheet.Shapes.AddOLEObject('Forms.CommandButton.1', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, (TextBox.Left + TextBox.Width) / 2, TextBox.Top + TextBox.Height + 8, 110, 40); TmpStr := StrList[88]; NextPosStr := Length(TmpStr); BtnShape.TextFrame.Characters('"CommandButton1"', Length(TmpStr)).Caption := TmpStr;
Cela m'aiderait grandement si la FAQ était complétée parce que c'est bien de pouvoir créer un bouton amis si on ne peut pas en faire usage...
Merci d'avance.
Partager