I am making a "cheatsheet" for Arduino.
I start with a selected rectangle of the correct size and position for that particular text.
Each group of text is(should be) in a frame (white) with a copy of this frame with the outline removed and the color fill a 40% gray behind the white frame. Kind of a 3D effect. BTW I would have thought there would be a Coreldraw tool for this but I cannot find one.I can't seem to control the outline property to delete the outline for the copy and I can't seem to get the order to execute. I am new at this {but not VBA}. I carefully recorded the below macro but cannot quite get the object.property to change the above.Any suggestions or perhaps a link to a similar sample macro?ThanksJohnSub Macro2() Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0) OrigSelection.Fillet 0.12, True Dim dup1 As ShapeRange Set dup1 = OrigSelection.StepAndRepeat(1, 0.031496, -0.031496) dup1.SetOutlinePropertiesEnd Sub
Similar samplesSub Macro3() 'Create Shadow for single shape Dim eff1 As Effect, s As Shape ActiveDocument.Unit = cdrMillimeter Set s = ActiveShape s.Fill.UniformColor.CMYKAssign 0, 0, 0, 0 s.Fillet 12, True Set eff1 = s.CreateDropShadow(0, 50, 15, 20, 25, CreateCMYKColor(0, 50, 50, 0), 4, 0, MergeMode:=9) End SubSub Macro4() 'Create Shadow for list of shapes Dim eff1 As Effect, s As Shape, SR As ShapeRange ActiveDocument.Unit = cdrMillimeter Set SR = ActiveSelectionRange SR.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0) SR.Fillet 12, True For Each s In SR Set eff1 = s.CreateDropShadow(0, 50, 15, 20, 25, CreateCMYKColor(0, 50, 50, 0), 4, 0, MergeMode:=9) Next s End SubRegardsTaras