通过VBA向命令提示符中添加ascii-art

Question

我有一些打开命令提示符的代码，并要求用户通过windows命令提示符登录。我收到抱怨说他们不得不那样登录，所以我想我应该在终端上添加一些Ascii艺术，这样就可以看到一些东西(见下文)。有什么好的想法吗？shellOUT = oShell.Run("cmd.exe /s /c echo Art Here & " & f & " " & cf, vbNormalFocus, True)，它需要在“回声”和"&“之间插入，上面写着”这里的艺术“。

       ____             
      / __ \ ___  _   __
     / / / // _ \| | / /
    / /_/ //  __/| |/ / 
   /_____/ \___/ |___/  

Answer 1

你可以：

Dim myArt As String

myArt = _
    "       ____             " & vbNewLine & _
    "      / __ \ ___  _   __" & vbNewLine & _
    "     / / / // _ \| | / /" & vbNewLine & _
    "    / /_/ //  __/| |/ / " & vbNewLine & _
    "   /_____/ \___/ |___/  " & vbNewLine & _
    "                        " & vbNewLine

shellOUT = oShell.Run("cmd.exe /s /c echo " & myArt & ..., vbNormalFocus, True)