Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
ඕනම රටකට සෙට් වෙන CV එකක්
ErMurazor
Updated:
Yesterday at 9:50 AM
Hambantota
7 Acres Beachfront Land For Sell DownSouth , PerPerch Price 420 000
1024 Digital
Updated:
Wednesday at 11:57 AM
Baseus PI LITE INDOOR CAMERA
ErMurazor
Updated:
Monday at 12:26 PM
Ad icon
Colombo
Hard Disk For Sale
mazza
Updated:
Oct 10, 2026
land for sale
justasking
Updated:
Oct 10, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
General
ElaKiri Help
Excel Macro Help
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="blackhole" data-source="post: 3859312" data-attributes="member: 38519"><p>Mama check kara ban. Macro record wenawa <img src="/styles/default/xenforo/smilies/default/confused.gif" class="smilie" loading="lazy" alt=":confused:" title="Confused :confused:" data-shortname=":confused:" /> <img src="/styles/default/xenforo/smilies/default/confused.gif" class="smilie" loading="lazy" alt=":confused:" title="Confused :confused:" data-shortname=":confused:" /> <img src="/styles/default/xenforo/smilies/default/confused.gif" class="smilie" loading="lazy" alt=":confused:" title="Confused :confused:" data-shortname=":confused:" /> <img src="/styles/default/xenforo/smilies/default/confused.gif" class="smilie" loading="lazy" alt=":confused:" title="Confused :confused:" data-shortname=":confused:" /> </p><p></p><p>Umbe office version eke kachal ekak da danne ne. Koi ekatath office wala Macro enabled karala thiyapan.</p><p></p><p>menna sample code ekak <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> <img src="/styles/default/xenforo/smilies/default/yes.gif" class="smilie" loading="lazy" alt=":yes:" title="Yes :yes:" data-shortname=":yes:" /> </p><p></p><p><span style="color: Blue"><strong>Sub ShapeADD()</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong>' ShapeADD Macro</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddLine(54#, 111#, 270#, 112.5).Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.ShapeRange.Flip msoFlipVertical</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddLine(55.5, 141#, 268.5, 141.75).Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.ShapeRange.Flip msoFlipVertical</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddShape(msoShapeRectangle, 108#, 169.5, 78#, 75.75). _</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddShape(msoShapeOval, 113.25, 275.25, 80.25, 79.5).Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddShape(msoShapeHeart, 378.75, 87.75, 120#, 101.25). _</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 285#, 246#, 172.5, _</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> 111#).Select</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> Selection.Characters.Text = ""</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> With Selection.Font</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Name = "Times New Roman"</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .FontStyle = "Regular"</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Size = 12</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Strikethrough = False</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Superscript = False</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Subscript = False</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .OutlineFont = False</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Shadow = False</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .Underline = xlUnderlineStyleNone</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> .ColorIndex = xlAutomatic</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong> End With</strong></span></p><p><span style="color: Blue"><strong></strong></span></p><p><span style="color: Blue"><strong>End Sub</strong></span></p></blockquote><p></p>
[QUOTE="blackhole, post: 3859312, member: 38519"] Mama check kara ban. Macro record wenawa :confused: :confused: :confused: :confused: Umbe office version eke kachal ekak da danne ne. Koi ekatath office wala Macro enabled karala thiyapan. menna sample code ekak :yes: :yes: :yes: :yes: :yes: :yes: :yes: [COLOR="Blue"][B]Sub ShapeADD() ' ShapeADD Macro ActiveSheet.Shapes.AddLine(54#, 111#, 270#, 112.5).Select Selection.ShapeRange.Flip msoFlipVertical ActiveSheet.Shapes.AddLine(55.5, 141#, 268.5, 141.75).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium Selection.ShapeRange.Flip msoFlipVertical ActiveSheet.Shapes.AddShape(msoShapeRectangle, 108#, 169.5, 78#, 75.75). _ Select ActiveSheet.Shapes.AddShape(msoShapeOval, 113.25, 275.25, 80.25, 79.5).Select ActiveSheet.Shapes.AddShape(msoShapeHeart, 378.75, 87.75, 120#, 101.25). _ Select ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 285#, 246#, 172.5, _ 111#).Select Selection.Characters.Text = "" With Selection.Font .Name = "Times New Roman" .FontStyle = "Regular" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub[/B][/COLOR] [/QUOTE]
Insert quotes…
Verification
Payakata winadi keeyak tibeda?
Post reply
Top
Bottom