居中VBA用户窗体并设置滚动条

文章预览

‍ ‍ 学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 用户窗体 当用户打开用户窗体时，你是否想让它们总是位于应用程序窗口的中心，是否想要在用户窗体尺寸大于应用程序窗口尺寸时，用户窗体会自动获得滚动条。默认情况下，你可以为用户窗体启用滚动条，但如果尺寸足够大，看起来会不美观，因为用户窗体上的滚动条将变灰。 下面的代码确保用户窗体始终自动显示在应用程序窗口的中心，并在需要时自动添加水平和 / 或垂直滚动条。 Public Sub CenterFormAndSetScrollBars(frm As Object) With frm .StartUpPosition = 0 .ScrollBars = fmScrollBarsNone If .Width < Application.Width Then .Left = Application.Left + 0.5 * Application.Width - 0.5 * .Width Else      .ScrollBars = fmScrollBarsHorizontal If .ScrollWidth = 0 Then .ScrollWidth = .Width .ScrollLeft = 0 ………………………………