代码之家 › 专栏 › 技术社区 › j johns

通过VBA将ascii art添加到命令提示符

command-prompt ascii terminal vba excel

0

j johns · 技术社区 · 3 年前

shellOUT = oShell.Run("cmd.exe /s /c echo Art Here & " & f & " " & cf, vbNormalFocus, True)


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

1 回复 | 直到 3 年前

1

3

Josh Eller 3 年前

您可以执行以下操作:

Dim myArt As String

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

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