Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Sub Histogram() AddIns("Analysis ToolPak").Installed = True Sheets("Calc").Activate Range("I1").Select Application.Run "ATPVBAEN.XLAM!Histogram", Sheets("CData").Range("$B:$B"), _ ActiveSheet.Range("$L$1"), ActiveSheet.Range("$C$2:$C$12"), False, False, _ True, True ActiveSheet.ChartObjects(1).Activate With ActiveChart.Parent .name = "Distribution" .Height = Height ' resize .Width = Width ' resize .Left = 0 'resize .Top = Top + 20 'resize .Border.Color = vbBlack End With ActiveChart.ChartTitle.Text = "Returns Distribution" ActiveChart.Parent.Cut Sheets("Chart").Select Range("A74").Select ActiveSheet.Paste With ActiveChart.Parent .Height = Height ' resize .Width = Width ' resize .Left = 0 'resize .Top = Top 'resize '.Border.Color = vbBlue End With Dim ax As Axis Set ax = ActiveChart.Axes(xlValue) With ax .HasMajorGridlines = True End With End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!