如何用Excel VBA识别Mac虚拟机中运行的Windows系统

要实现仅在原生Mac系统和Mac虚拟机中的Windows系统下调整窗体字号，可通过以下方案：

核心思路 #

• 原生Mac系统直接用编译器指令#If Mac Then处理。
• Windows系统中，通过读取硬件标识或注册表项，判断是否运行在Mac虚拟机（如Parallels、VMware Fusion）中，再针对性调整字号。

具体实现 #

1. 编写虚拟机检测函数 #

该函数通过WMI查询硬件信息，结合注册表检测，判断当前Windows系统是否运行在Mac虚拟机中：

Function IsWindowsOnMacVM() As Boolean
    Dim wmiService As Object
    Dim computerSystems As Object
    Dim system As Object
    
    ' 检测硬件制造商/型号（Parallels、VMware、Apple标识）
    On Error Resume Next
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    Set computerSystems = wmiService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
    
    For Each system In computerSystems
        If InStr(LCase(system.Manufacturer), "parallels") > 0 _
            Or InStr(LCase(system.Manufacturer), "vmware") > 0 _
            Or InStr(LCase(system.Model), "apple") > 0 Then
            IsWindowsOnMacVM = True
            Exit Function
        End If
    Next
    
    ' 补充检测Parallels注册表标识
    Dim regVersion As String
    regVersion = GetSetting("HKEY_LOCAL_MACHINE\SOFTWARE\Parallels\Parallels Tools", "", "Version", "")
    If regVersion <> "" Then
        IsWindowsOnMacVM = True
        Exit Function
    End If
    
    IsWindowsOnMacVM = False
End Function

2. 整合字号调整逻辑 #

在窗体初始化或控件加载时调用以下过程，统一处理两种Mac场景的字号调整：

Sub AdjustFormTextSize(targetForm As UserForm)
    '#If Mac Then
        ' 原生Mac系统下缩小字号（比例可根据实际效果调整）
        targetForm.Font.Size = targetForm.Font.Size * 0.85
        ' 若需调整窗体内部控件，可循环处理
        Dim ctrl As Control
        For Each ctrl In targetForm.Controls
            If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "Label" Then
                ctrl.Font.Size = ctrl.Font.Size * 0.85
            End If
        Next
    '#Else
        ' Windows系统下仅在Mac虚拟机中调整字号
        If IsWindowsOnMacVM() Then
            targetForm.Font.Size = targetForm.Font.Size * 0.85
            Dim vmCtrl As Control
            For Each vmCtrl In targetForm.Controls
                If TypeName(vmCtrl) = "TextBox" Or TypeName(vmCtrl) = "Label" Then
                    vmCtrl.Font.Size = vmCtrl.Font.Size * 0.85
                End If
            Next
        End If
    '#End If
End Sub

3. 调用方式 #

在用户窗体的Initialize事件中添加调用：

Private Sub UserForm_Initialize()
    AdjustFormTextSize Me
End Sub

注意事项 #

• 字号调整比例（如0.85）需根据实际显示效果测试后确定，不同虚拟机或分辨率可能需要微调。
• 部分虚拟机可能模拟通用硬件，若检测失效，可补充检测Win32_BIOS的Manufacturer字段，或Win32_VideoController的名称标识。
• WMI查询可能受系统权限限制，若在受限环境中运行，可改用API读取注册表或硬件信息（需额外编写API声明）。

内容的提问来源于stack exchange，提问作者BrianUP