Bonjour à tous,


J'ai un fichier excel dans lequel j'ai une image que je veux toujours positionner en haut de l'écran à gauche, pour ce faire j'utilise le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub test()
Dim Sh As Worksheets
Set Sh = Worksheets("Sheet1")
 
With Sh
With .Shapes("Picture 9")
.Top = Sh.Range("A1").Top
.Left = Sh.Range("A1").Left
 
.Height = Application.CentimetersToPoints(2)
.Width = Application.CentimetersToPoints(2)
End With
End With
 
Set Sh = Nothing
End Sub
je souhaite aussi la dimensionner comme je le souhaite grâce au vba.
Mais ce code me ramène toujours à deux erreurs: soit error 9 "subscript out of range" soit error 13 "type dismatch" et je ne comprends pas ce que je dois faire, est ce un problème de librairie ?

Merci d'avance à ceux qui me liront =)

Guillaume