这悬浮怎么换个位置

吴虾咪

什么样把位置自动识别在这边角边上。然后图片这什么加上去的。返回顶部这些加窗体里面对不对。

02761752696

没明白意思
帮顶一下

吴虾咪

02761752696 发表于 2022-11-21 12:21
没明白意思
帮顶一下

那能告诉我图片什么加上去，按钮这样加上去对不对。

02761752696

吴虾咪 发表于 2022-11-21 12:41
那能告诉我图片什么加上去，按钮这样加上去对不对。

你说的是窗体背景颜色 青色吗？

吴虾咪

02761752696 发表于 2022-11-21 13:00
你说的是窗体背景颜色 青色吗？

不是，我上面图片标的，不知道什么弄去，控件上又添加不了。
Private Sub 返回顶部_Click()
ActiveSheet.Range("O4").Select
End Sub
就像这个面这个
Private Sub Image1_Click()
这图片地址要写的是啥
End Sub

02761752696

吴虾咪 发表于 2022-11-21 13:33
不是，我上面图片标的，不知道什么弄去，控件上又添加不了。
Private Sub 返回顶部_Click()
ActiveShee ...

.........

吴虾咪

02761752696 发表于 2022-11-21 13:37
.........

不是打开的时候位置差不多就在这里，就是这里面怎么改他的开头出现的位置。想把他改到右下角去




还有这个一个登录帐号的件，一个下面的是这个菜单的件，两个放在一起只能起动一个，怎么弄两个都可以用。

大神

coolxy2000

固定位置悬浮见附件。

吴虾咪

coolxy2000 发表于 2022-11-21 15:13
固定位置悬浮见附件。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Unprotect Password:="12345"
Sheets("A").Visible = True
Sheets("A").Activate
For j = 1 To Sheets.Count
   If Sheets(j).Name <> "A" Then
      Sheets(j).Visible = False
   End If
Next j
ActiveWorkbook.Protect Password:="12345"
End Sub

Private Sub Workbook_Open()
   Application.Visible = False
UserForm1.Show
End Sub
==================================这以上的是登录的东西=======
Private Sub Workbook_close()
    UserForm6.Show
End Sub

Private Sub Workbook_Activate()
        UserForm1.Show 0
        UserForm1.Top = Application.Height - UserForm1.Height
        UserForm1.Left = Application.Left + 10
End Sub
Private Sub Workbook_Deactivate()
    Unload UserForm1
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
    Unload UserForm1
    UserForm1.Show 0
    UserForm1.Top = Application.Height - UserForm1.Height
    UserForm1.Left = Application.Left + 10
End Sub
Private Sub Workbook_Open11()
        UserForm1.Show 0
        UserForm1.Top = Application.Height - UserForm1.Height
        UserForm1.Left = Application.Left + 10
End Sub
把这些放进去，给变成登录器后左下方了，然后开启时也只能一个出现，大神，这样怎么弄。麻烦帮改一下，或能放到其它地方吗。

吴虾咪

coolxy2000 发表于 2022-11-21 15:13
固定位置悬浮见附件。

可以，大神，但我把里面的东西放进去，跟登陆框架冲突了，只能启动一个。进来登陆的又显示出来左下角了。


发文字的要审核一下，红框是登陆原有的。