刚刚开始使用d3,需要制作一个与项目图像中的条形图完全相同的水平条形图。任何帮助,将不胜感激。感谢。
到目前为止,我一直在研究this示例,并尝试将其调整为我需要的样子。
答案 0 :(得分:1)
这会让你开始......
您可以使用某些json或其他内容替换数据
Option Explicit
Dim WshShell As Object
Dim EngineRun As Object
Sub main()
Set WshShell = CreateObject("WScript.Shell")
Set EngineRun = WshShell.Exec("notepad.exe")
MsgBox EngineRun.ProcessID
If EngineRun.ProcessID = True Then
WshShell.run "TASKKILL /F /IM " & EngineRun.ProcessID, , True
MsgBox EngineRun.ProcessID & (" terminated")
Else
MsgBox EngineRun.ProcessID & (" does not exist")
End If
End Sub
答案 1 :(得分:0)