Is there a nifty way to reduce this code down to it's main functioning core or is this the smallest it could be?
Sub DoItnao() Dim OrigSelection As ShapeRange On Error Resume Next Set OrigSelection = ActiveSelectionRange OrigSelection(2).Style.StringAssign "{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""primaryColor"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000""},""outline"":{""width"":""762"",""color"":""CMYK255,USER,0,0,0,255,100,cccd19cb-4675-4a5e-8bda-d0bbbaab8af0"",""leftArrow"":""|0"",""rightArrow"":""|0""},""character"":{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""type"":""1"",""primaryColor"":""CMYK100,USER,191,173,167,230,100,00000000-0000-0000-0000-000000000000""},""angle"":""0"",""outline"":{""width"":""0"",""color"":""CMYK,USER,80,40,0,20,100,00000000-0000-0000-0000-000000000000""},""v_shift"":""0"",""latin"":{""font"":""Verdana"",""size"":""35277"",""script"":""0"",""underline"":""0"",""charset"":""0"",""strikeout""" & _ ":""0"",""effect"":""0"",""overline"":""0"",""weight"":""64"",""italic"":""0""},""farEast"":{""font"":""Malgun Gothic"",""size"":""35277"",""script"":""0"",""underline"":""0"",""charset"":""129"",""strikeout"":""0"",""effect"":""0"",""overline"":""0"",""weight"":""64"",""italic"":""0""},""RTL"":{""font"":""Arial"",""size"":""35277"",""script"":""0"",""underline"":""0"",""charset"":""178"",""strikeout"":""0"",""effect"":""0"",""overline"":""0"",""weight"":""64"",""italic"":""0""},""h_shift"":""0""},""paragraph"":{""justify"":""2""},""dimension"":{""useDefaultOverhang"":""1"",""horizontalText"":""0"",""showLeadingZero"":""0"",""textStyle"":""1"",""precision"":""3"",""prefix"":"""",""useDefaultAnchorGap"":""1"",""anchorGap"":""0"",""autoReverseTerminators"":""1"",""showUnits"":""1"",""useDefaul" & _ "tLabelGap"":""1"",""boxAroundText"":""0"",""textPlacement"":""1"",""overhang"":""0"",""units"":""0"",""dynamicText"":""0"",""reverseTerminators"":""0"",""includeCDReverseTerminated"":""0"",""centerText"":""1"",""hideCDWhenReverseTerminated"":""0"",""useDefaultReverseTerminatedLength"":""1"",""showExtLines"":""1"",""showInnerExtensionLines"":""1"",""angularUnits"":""1"",""hideGapOnFreeExtension"":""1"",""reverseTerminatedLength"":""0"",""labelGap"":""0"",""radialInsideOutside"":""0"",""radialTextAboveLine"":""0"",""dimetricSymbol"":""6"",""radialSymbol"":""4"",""suffix"":""""}}"End Sub