shape sans cadre

Le
Guy72
Bonjour,
J'ai le code suivant qui me donne un emplacement de texte suivant le clic
dans la cellule.
Mais ce code me fait un cadre.
Je souhaiterais ne pas avoir de cadre.
J'ai beau essayer, mais je n'y arrive pas.
Pouvez vous me dire ce qu'il faut modifier ?
Merci de votre aide.

Sub Heures()
hcel = ActiveCell.Height / 2
Lcel = ActiveCell.Width * 2
PosHt = ActiveCell.Top
posLHt = ActiveCell.Left

Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, posLHt, PosHt,
Lcel, hcel).Select
x = myDocument.Shapes.Count + 1
With Selection
.Text = "00"
.Font.Name = "Arial"
.Font.Size = 8
'.Font.Bold = True 'Gras
'.Font.ColorIndex = 55
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.Name = "monshape" & x
End With
End Sub


--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #7093531
Sub Heures()

With Worksheets(1)
.Activate
hcel = ActiveCell.Height / 2
Lcel = ActiveCell.Width * 2
PosHt = ActiveCell.Top
posLHt = ActiveCell.Left
x = .Shapes.Count + 1
With .Shapes.AddTextbox(msoTextOrientationHorizontal, _
posLHt, PosHt, Lcel, hcel)
.Name = "monshape" & x
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
With .OLEFormat.Object
.Text = "00"
.Font.Name = "Arial"
.Font.Size = 8
'.Font.Bold = True 'Gras
'.Font.ColorIndex = 55
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
End With
End With
End With
End Sub
Guy72
Le #7094351
Bonjour
Si j'ai bien compris.
Dans ce code, la Shape prends deux cellules jointes horizontalement (Lcel =
ActiveCell.Width * 2) ainsi que la moitié haute des cellules.( hcel =
ActiveCell.Height / 2)

Ma question est :
Comment faire pour que la Shape prenne la moitié inférieure des cellules
.( hcel = ActiveCell.Height ? )?
Merci de ton aide.
--
Cordialement
Guy

"MichDenis" OKzln%
Sub Heures()

With Worksheets(1)
.Activate
hcel = ActiveCell.Height / 2
Lcel = ActiveCell.Width * 2
PosHt = ActiveCell.Top
posLHt = ActiveCell.Left
x = .Shapes.Count + 1
With .Shapes.AddTextbox(msoTextOrientationHorizontal, _
posLHt, PosHt, Lcel, hcel)
.Name = "monshape" & x
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
With .OLEFormat.Object
.Text = "00"
.Font.Name = "Arial"
.Font.Size = 8
'.Font.Bold = True 'Gras
'.Font.ColorIndex = 55
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
End With
End With
End With
End Sub



Guy72
Le #7094361
Bonjour
Si j'ai bien compris.
Dans ce code, la Shape prends deux cellules jointes horizontalement (Lcel =
ActiveCell.Width * 2) ainsi que la moitié haute des cellules.( hcel =
ActiveCell.Height / 2)

Ma question est :
Comment faire pour que la Shape prenne la moitié inférieure des cellules
.( hcel = ActiveCell.Height ? )?
Merci de ton aide.
--
Cordialement
Guy

"MichDenis" OKzln%
Sub Heures()

With Worksheets(1)
.Activate
hcel = ActiveCell.Height / 2
Lcel = ActiveCell.Width * 2
PosHt = ActiveCell.Top
posLHt = ActiveCell.Left
x = .Shapes.Count + 1
With .Shapes.AddTextbox(msoTextOrientationHorizontal, _
posLHt, PosHt, Lcel, hcel)
.Name = "monshape" & x
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
With .OLEFormat.Object
.Text = "00"
.Font.Name = "Arial"
.Font.Size = 8
'.Font.Bold = True 'Gras
'.Font.ColorIndex = 55
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
End With
End With
End With
End Sub



Modeste
Le #7094611
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Si j'ai bien compris.
Dans ce code, la Shape prends deux cellules jointes horizontalement
(Lcel = ActiveCell.Width * 2) ainsi que la moitié haute des
cellules.( hcel = ActiveCell.Height / 2)

Ma question est :
Comment faire pour que la Shape prenne la moitié inférieure des
cellules .( hcel = ActiveCell.Height ? )?



PosHt = ActiveCell.Top + hcel

--
@+
;o)))
Guy72
Le #7094781
Encore merci Modeste
--
Cordialement
Guy

"Modeste" eht%
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Si j'ai bien compris.
Dans ce code, la Shape prends deux cellules jointes horizontalement
(Lcel = ActiveCell.Width * 2) ainsi que la moitié haute des
cellules.( hcel = ActiveCell.Height / 2)

Ma question est :
Comment faire pour que la Shape prenne la moitié inférieure des
cellules .( hcel = ActiveCell.Height ? )?



PosHt = ActiveCell.Top + hcel

--
@+
;o)))
Publicité
Poster une réponse
Anonyme