S
Sierik
Hi,
I'm a tinkerer in excel and know a (small) bit of VBA but could use som
help.
I have the following challenge: I'd like to have a logo on the botto
right corner of my excel worksheet view regardless of zoom, resize, cel
width and scrolling. So it will need to move with the user actions. I'v
tried a bit of VBA where on worksheet resize I read out the screen widt
and then give my shape the corresponding 'left' attribute for a nic
placement. However, zooming and scrolling seem to be quite a differen
matter. Does anybody know of a way for me to achieve my goal?
--------------------------
my current simple VBA:
Public Winwidth As Long
Public WinHeight As Long
sub workbook_activate() 'but also on workbook_resize and various othe
triggers.
Winwidth = Application.ActiveWindow.Width
ActiveSheet.Shapes("GPV_Logo").Left = Winwidth - 80
WinHeight = Application.ActiveWindow.Height
ActiveSheet.Shapes("GPV_Logo").Top = WinHeight - 60
end sub
I'm a tinkerer in excel and know a (small) bit of VBA but could use som
help.
I have the following challenge: I'd like to have a logo on the botto
right corner of my excel worksheet view regardless of zoom, resize, cel
width and scrolling. So it will need to move with the user actions. I'v
tried a bit of VBA where on worksheet resize I read out the screen widt
and then give my shape the corresponding 'left' attribute for a nic
placement. However, zooming and scrolling seem to be quite a differen
matter. Does anybody know of a way for me to achieve my goal?
--------------------------
my current simple VBA:
Public Winwidth As Long
Public WinHeight As Long
sub workbook_activate() 'but also on workbook_resize and various othe
triggers.
Winwidth = Application.ActiveWindow.Width
ActiveSheet.Shapes("GPV_Logo").Left = Winwidth - 80
WinHeight = Application.ActiveWindow.Height
ActiveSheet.Shapes("GPV_Logo").Top = WinHeight - 60
end sub