PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
ActiveSheet.Shapes("shpPart1").Fill.ForeColor = 13998939
Sub PartShapesTEST2() Dim s As Shape Dim lngColor As Long Set s = ActiveSheet.Shapes("shpPart1") lngColor = s.Fill.ForeColor s.Fill.ForeColor = lngColor End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|EXCEL Lookup a value, compares it against a range and returns a separate value from another cell. (File attached)||15||38|
|Visual Basic 6: Code needed for TripleDES Encryption/Decryption||14||45|
|Switched from Excel 2013 to 2010 becasue of which Excel Formula like NA, NUMBERVALUE etc not working||7||22|