Z
Zz
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 sheet
with this code
<codigo>
Public Sub set_taskbar_position()
On Error Resume Next
Dim Vis_Heigth As Integer
Vis_Heigth = 60
Set Sh = ActiveSheet
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 sheet?
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 sheet, but it isn't shown entirely,
it overlays with the 'sheet 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 sheet 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 sheet.
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.
I managed to solve the part of placing a shape in the bottom of the sheet
with this code
<codigo>
Public Sub set_taskbar_position()
On Error Resume Next
Dim Vis_Heigth As Integer
Vis_Heigth = 60
Set Sh = ActiveSheet
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 sheet?
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 sheet, but it isn't shown entirely,
it overlays with the 'sheet 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 sheet 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 sheet.
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.