Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub CreateNE_TotalPercentItemsAvailableChart(objWS As Object) Dim objXLSheet As Object Dim objXlChart As Object Dim objXlDataSheet As Object Dim rng As Object Dim rngChart As Object Set objXLSheet = objWS Set objXlDataSheet = objXlBook.Worksheets("Summary") Set rng = objXlDataSheet.Range("A:A,D:D") Set objXlChart = objXLSheet.ChartObjects.Add(Left:=75, Width:=750, Top:=150, Height:=300).Chart With objXlChart .ChartType = 4 'xlLine .SetSourceData Source:=rng .PlotBy = 2 .HasTitle = True .ChartTitle.Text = "Norgren Express" & vbCrLf & "Total Items % Available" .HasLegend = False .Axes(2).TickLabels.NumberFormat = "0%" .Axes(2).TickLabels.Orientation = 0 .Axes(1).TickLabels.Orientation = 60 .ChartStyle = 31 End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.