Loupe en VBA

[tinet]

Bonjour le forum,


j'ai trouver ceci en VBA pour utiliser une loupe sur cellule.

Question je voudrais savoir si il est possible d'agrandir la taille du Monshaps pour plus de caractère.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 And ActiveSheet.Shapes("monshape").Visible = True Then
If Err <> 0 Then creeShape
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top + ActiveCell.Height + 3
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = ActiveCell
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Shapes("monshape").Visible = Not ActiveSheet.Shapes("monshape").Visible
If ActiveSheet.Shapes("monshape").Visible Then
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top + ActiveCell.Height + 3
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = ActiveCell
End If
Cancel = True
End Sub
Sub creeShape()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 280, 150).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 13
Selection.Name = "monshape"
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top + ActiveCell.Height + 3
End Sub

A plus et merci

 

[phlaurent55]

Re : Loupe en VBA

bonjour Tinet,

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 1, 1, 280, 150).Select
tu peux modifier la dimension en faisant varier les valeurs 280 et 150

Selection.Font.Size = 13
ou mettre des caractères plus petits en diminuant la valeur 13

à+
Philippe

 

[tinet]

Re : Loupe en VBA

Bonjour et merci Philippe.