quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement, Ce n'est pas grave. Dans mon petit jeu, je n'ajoute pas de Shape avec VBA.
Ça commence à sentir bon dans ma cuisine ;-)
Bon appétit et bonne soirée.
Serge
"isabelle" a écrit dans le message de news: %
re bonjour Serge,
je croyais avoir trouver une parade mais...
y'a un p'tit probleme avec vba,
quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement,
execute ceci au pas à pas,
Sub Macro1() Set a = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 2, 100, 8) x = a.Left y = Range("A1").Left If x = y Then MsgBox "Aligner = vrai" Else MsgBox "Aligner = faux" End If a.Delete End Sub
isabelle
Je me posais exactement les mêmes questions : Comment le mettre à l'oeuvre directement et quel est son état à l'ouverture du fichier ? Là je vous quitte, je vais me lancer dans quelque chose de plus simple : préparer un boeuf aux légumes ;-)
Serge
"isabelle" a écrit dans le message de news:
ps /
j'avais essayé :
Application.CommandBars("Drawing").Controls(1).Controls(5).Execute et Application.CommandBars("Drawing").Controls("Dessin").Controls("Aligner").Execute
mais il ne veut pas s'executer à partir de là, c'est pourquoi je l'ai mit ailleurs. il ne reste à trouver son état à l'ouverture du fichier
isabelle
Bonjour Isabelle,
quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement,
Ce n'est pas grave. Dans mon petit jeu, je n'ajoute pas de Shape avec VBA.
Ça commence à sentir bon dans ma cuisine ;-)
Bon appétit et bonne soirée.
Serge
"isabelle" <i@v> a écrit dans le message de news: %23d1GUUwUIHA.4532@TK2MSFTNGP02.phx.gbl...
re bonjour Serge,
je croyais avoir trouver une parade mais...
y'a un p'tit probleme avec vba,
quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement,
execute ceci au pas à pas,
Sub Macro1()
Set a = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 2, 100, 8)
x = a.Left
y = Range("A1").Left
If x = y Then
MsgBox "Aligner = vrai"
Else
MsgBox "Aligner = faux"
End If
a.Delete
End Sub
isabelle
Je me posais exactement les mêmes questions :
Comment le mettre à l'oeuvre directement et
quel est son état à l'ouverture du fichier ?
Là je vous quitte, je vais me lancer dans quelque
chose de plus simple : préparer un boeuf aux légumes ;-)
Serge
"isabelle" <i@v> a écrit dans le message de news: eGfmYPvUIHA.4624@TK2MSFTNGP03.phx.gbl...
ps /
j'avais essayé :
Application.CommandBars("Drawing").Controls(1).Controls(5).Execute
et
Application.CommandBars("Drawing").Controls("Dessin").Controls("Aligner").Execute
mais il ne veut pas s'executer à partir de là, c'est pourquoi je l'ai mit ailleurs.
il ne reste à trouver son état à l'ouverture du fichier
quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement, Ce n'est pas grave. Dans mon petit jeu, je n'ajoute pas de Shape avec VBA.
Ça commence à sentir bon dans ma cuisine ;-)
Bon appétit et bonne soirée.
Serge
"isabelle" a écrit dans le message de news: %
re bonjour Serge,
je croyais avoir trouver une parade mais...
y'a un p'tit probleme avec vba,
quand "aligner sur la grille" est actif un shapes ajouter par vba n'est pas aligner automatiquement,
execute ceci au pas à pas,
Sub Macro1() Set a = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 2, 100, 8) x = a.Left y = Range("A1").Left If x = y Then MsgBox "Aligner = vrai" Else MsgBox "Aligner = faux" End If a.Delete End Sub
isabelle
Je me posais exactement les mêmes questions : Comment le mettre à l'oeuvre directement et quel est son état à l'ouverture du fichier ? Là je vous quitte, je vais me lancer dans quelque chose de plus simple : préparer un boeuf aux légumes ;-)
Serge
"isabelle" a écrit dans le message de news:
ps /
j'avais essayé :
Application.CommandBars("Drawing").Controls(1).Controls(5).Execute et Application.CommandBars("Drawing").Controls("Dessin").Controls("Aligner").Execute
mais il ne veut pas s'executer à partir de là, c'est pourquoi je l'ai mit ailleurs. il ne reste à trouver son état à l'ouverture du fichier
