[XL-2010] Taille d'un objet VBA

1 pièce(s) jointe(s)

Taille d'un objet VBA

Bonjour,

mon fichier excel me permet d'ajouter une nouvelle feuille dans le classeur ainsi que le bouton (shape) qui est affecté au code VBA

Ce que je ne comprends pas c'est qu'il n'est pas dimensionné en largeur et longueur comme je l'ai configuré dans le code suivant (il ne fait pas 80.8mm en hauteur et 120.7mm en largeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub Recup()
 
    Dim plage_JSem As Range
    Dim plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim wb As Workbook
    Dim plage_a_copier As Range
    Dim objet_a_copier As Object
 
    feuilleinitiale = CStr(Val(ActiveSheet.Name))
 
    With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
        Set plage_JSem = .Range(.Cells(1, 1), .Cells(2, 40))
    End With
 
 
 
    NomFeuille = CStr(Val(ActiveSheet.Name) + 1)
 
 
    Set objet_a_copier = ActiveSheet.Shapes("Bouton 1")
    Sheets.Add Before:=Sheets("mensuel")    'créer un nouvel onglet qui se placera juste avant l'onglet "mensuel"
    ActiveSheet.Name = NomFeuille
 
 
 
    With Worksheets(NomFeuille)
 
        objet_a_copier.Copy
        ActiveSheet.[R9].Select
        ActiveSheet.Paste
        ActiveSheet.Shapes("Bouton 1").Height = 80.8
        ActiveSheet.Shapes("Bouton 1").Width = 120.7
        .[A1].Select
 
        plage_JSem.Copy .Range("A1")
 
 
    End With
 
End Sub

je vous joints mon fichier

Merci beaucoup pour votre aide

Bonjour,
l'unité des objet n'est pas en millimètre mais en point
1 point = 1/72
1 pouce = 72 points

donc si on veux en millimètre il faut faire
Code:

1 2 ActiveSheet.Shapes("Bouton 1").Height = 80.8 * 72 / 25.4 ActiveSheet.Shapes("Bouton 1").Width = 120.7 * 72 / 25.4
parceque 1 pouce = 25.4 millimètre

en effet je comprends bien mieux

un grand MERCI

Salut, il y a aussi :

Application.CentimetersToPoints
Application.InchesToPoints
voir aide en ligne pour usage
ainsi que Connaitre les valeurs des twips en VBA