Bonjour,

j'aimerais ajouter un background a ma macro, qui s'adapte en fonction de la taille de l’écran.
j'ai procédé ainsi :

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
18
Private Sub Workbook_Open()
ThisWorkbook.Sheets("ctrl board").Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
 
Dim ws As Worksheet
Set ws = ActiveSheet
W_width = Application.Width
W_height = Application.Height
 
With ws.Shapes("Image 56")
.Top = 1
.Left = 1
.Height = W_height
.Width = W_width
End With
 
ThisWorkbook.Sheets("ctrl board").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
End Sub
Le problème est le suivant:
l'image ne s'adapte jamais à la taille de mon écran, et en creusant un peu j'ai trouvé pourquoi ça ne marche pas.
En fait je n'arrive pas à forcer la valeur des propriétés .height et .width
En mode débogage, je vois que .height par exemple prend bien la valeur de W_height mais ça change automatiquement quand j'attribue une valeur a .width par la suite!

Je ne comprends pas pourquoi les valeurs changent automatiquement et qu'elles sont dépendantes(est-ce le .autoshapetype?).

Merci pour l'aide,
Ryan