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
Colombo
RidhMathraa ’26 🎶✨
Tmadhusanka
Updated:
Yesterday at 11:58 PM
Ad icon
Colombo
PXN V10 Pro Direct Drive Racing Wheel (Under Warranty)
Abdur Rahman
Updated:
Yesterday at 10:23 PM
Ad icon
USDT ණය සේවාව - USDT Loan Service
පුරවැසියා
Updated:
Yesterday at 4:54 PM
Ad icon
🎮 INDIAN PSN GIFT CARDS AVAILABLE NOW! 🎮
madukaperera
Updated:
Tuesday at 12:57 PM
🚀 Google AI PRO – 18 Months | Rs. 850 Only
lkkolla
Updated:
Monday at 4:56 PM
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
Awruddata maasa keeyada?
Post reply
Top
Bottom