在 MonthView 控件中删除指示今天的圆圈

Question

有什么方法可以去掉 MonthView 控件中表示今天的红色小圆圈吗？我一直在谷歌搜索，我发现最接近的是 this，它似乎包含一个解决方案，但在 VB6 中，不是 VBA。此外，查看上传到 post 的各种文件，我很难理解哪个部分正在删除圆圈，没关系是否可以在 Excel-[=17= 中使用相同的解决方案].

任何关于我希望做的事情是否可行的意见都将不胜感激。

Answer 1

使用API非常简单:

将此添加到用户窗体的顶部：

Private Declare Function GetWindowLong Lib "user32" _
    Alias "GetWindowLongA" ( _
    ByVal hWnd As Long, _
    ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" ( _
    ByVal hWnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const MCS_NOTODAYCIRCLE As Long = 8

并使用它来删除它：

Private Sub UserForm_Initialize()

  With Me.MonthView1
    SetWindowLong .hWnd, GWL_STYLE, GetWindowLong(.hWnd, GWL_STYLE) Or MCS_NOTODAYCIRCLE
  End With

End Sub

在 MonthView 控件中删除指示今天的圆圈

Remove circle indicating today in MonthView-control

vba

excel

excel-2013

vb6-migration