Discussion :

[rayba89]

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

[Marc-L]

Bonjour, bonjour !

Rien qu'en jetant un œil aux propriétés de l'objet Shape !

Par défaut cet objet agit de la sorte afin de respecter l'homothétie de l'image.

Mais pour vouloir la déformer, désactiver sa propriété LockAspectRatio …

Dans le cas contraire, c'est juste de la pure logique et là je te laisse y réfléchir, j'ai déjà effectué la recherche à ta place !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Nako_lito]

si tu souhaite conserver un aspect graphique joli sur ton background, tu peux aussi insérer la même image en plusieurs format dans ton projet et en fonction de la résolution, charger telle ou telle image.

[Marc-L]

C'est inutile en respectant la logique du fonctionnement de l'objet Shape …

De plus bonjour le gâchis de ressources en insérant plusieurs formats de la même image !

[Nako_lito]

une image en 1920*1080 que tu scale en 600x400 t'auras juste 10 gros pixels a l'écran ...

et tu n'en load qu'une lors du launch, les autres ne sont pas en mémoire.

[Marc-L]

Non, c'est dans le sens contraire ! (upsizing et non pas downsizing)

C'est un peu comme X < 0 dans l'autre post …

[rayba89]

Bonjour Marc-L , Nako_Lito
Merci pour votre aide, j'etais en vacances c'est pour cela que je ne reponds que maintenant.

@Nako_lito, mon but est d'avoir une macro avec un background qui s'adapte a toute taille d'ecran.
l'idée me semble bien mais compliquée a mettre en place, un resize de l'image me suffit vu que je me souci peu de la qualité de l'image.

@ Marc_L , merci pour ton conseil concernant le LockAspectRatio, mais j'avais déja essayé et ca ne marche pas

[Marc-L]

De mon côté pas de souci …