how to read the visible part of a sheet

Tech-Archive recommends: Fix windows errors by optimizing your registry

i create a new post because it's a different issue now

I managed to solve the part of placing a shape in the bottom of the ***

with this code

<codigo>
Public Sub set_taskbar_position()
On Error Resume Next
Dim Vis_Heigth As Integer
Vis_Heigth = 60
Set Sh = Active***
With Sh
.Shapes("taskbar").Top = Application.UsableHeight - Vis_Heigth ' alineamos la shape para que se mantenga al fondo de la hoja
.Shapes("taskbar").Width = Application.UsableWidth ' ajustamos el tamaño de la "Barra de tareas"
.Shapes("taskbar").Left = Application.UsableWidth - Application.UsableWidth ' alineamos la barra a la izquierda
End With
Application.StatusBar = "Esta usted modificando la tabla : " & Application.WorksheetFunction.Proper(Sh.Name)'nos aseguramos de que el nombre de la tabla _
aparezca correctamente escrito
Set Sh = Nothing
End Sub
</codigo>

but now i have a few questions, two in fact

1> is there possible to read the real visible part of a ***?

See, when i set the shape's Top property to 'Application.UsableHeight- [the_shape].height'
it seems to work properly, the shape goes to the bottom of the ***, but it isn't shown entirely,
it overlays with the '*** navigation bar', so i'm assuming this is the real 'visible height' [ if there's such thing]
and it is related to the Usable height, how can i set the shape position so it aligns with the *** navigation bar when it is shown,
or to the status bar's 'ceiling' when it isn't

2> when the windowstate property of the book is xlNormal, the windows floats inside the parent window [ excel], and i really wish to know if it is possible that the shape takes the width of the window , and keep it's alignment with the bottom of the ***.


hope somebody finds the code above useful, and to the rest alwas willing to help, so many thanks and my most sincere apologies in case i have been offensive to someone or have answered in an innapropiate manner.


Thanks in advantage.




--
sincerely yours
--
Zz[underground]
---
Quantcast