Re: $$Excel-Macros$$ PERSONAL MACRO WORKBOOK

2015-11-27 Thread ashish koul
check this out
http://www.rondebruin.nl/win/personal.htm

On Fri, Nov 27, 2015 at 1:33 PM, Izhar  wrote:

>
> I've downloaded macro codes for this file and these codes are only run on
> this file if I want to run these codes on all the files i.e. PERSONAL MACRO
> WORKBOOK, then how can i do this.  Can anyone help me please.
>
> Thanks in advance
> NOTE:
> you may also run this code by choosing E1 and pressing CTRL+SHIFT+F
> --
> *Izhar Ul Haq*
>
>
>
> Cell# 009203069072597
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>



-- 
*Regards*

*Ashish Koul*


*Visit*
http://www.excelvbamacros.in
Like Us on Facebook 
Join Us on Facebook 


P Before printing, think about the environment.

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ PERSONAL MACRO WORKBOOK

2015-11-27 Thread Izhar
I've downloaded macro codes for this file and these codes are only run on
this file if I want to run these codes on all the files i.e. PERSONAL MACRO
WORKBOOK, then how can i do this.  Can anyone help me please.

Thanks in advance
NOTE:
you may also run this code by choosing E1 and pressing CTRL+SHIFT+F
-- 
*Izhar Ul Haq*



Cell# 009203069072597

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


how to make this workbook as PERSONAL MACRO WORKBOOK .xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


$$Excel-Macros$$ Re: Introduce Yourself !!

2015-11-27 Thread shilpag
Hi
  This is Shilpa


On Saturday, June 9, 2012 at 12:51:59 AM UTC+5:30, Ayush Jain wrote:
>
> Hey all new and current posters,
>  
> Welcome to excel group,one of the largest online community of excel Fans!
>  
> I hope you enjoy your time here & find this forum to be a friendly and 
> knowledgeable community. Please feel free to post a small introduction, a 
> friendly hello or tell us a bit about yourself. Why not tell us where are 
> you from, what you do, what your interests are, how old you are, which is 
> your favourite excel site or blog is or anything else that comes to mind!
>
> Thanks for your time
> Ayush Jain
> Group Manager
> Microsoft MVP
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


Re: $$Excel-Macros$$ excel-VBA-GEarth integrated but not able to display name for placemark through VBA,Plz HELP

2015-11-27 Thread ashish koul
Share the sample file
On Nov 27, 2015 1:41 PM, "shilpag"  wrote:

> Hi
> I have developed a small desktop application with excel data which
> will be displayed on to Google Earth by VBA code.
>  The google earth is displaying coordinates  (values are looped by macro )
> but i am not able to show respective names for those coordinates ,
>  as getting Byref argument tyoe mismatch error.
>  Please help me to sort it out , since i have to give demo on the same in
> coming exams.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ excel-VBA-GEarth integrated but not able to display name for placemark through VBA,Plz HELP

2015-11-27 Thread shilpag
Hi 
I have developed a small desktop application with excel data which will 
be displayed on to Google Earth by VBA code.
 The google earth is displaying coordinates  (values are looped by macro ) 
but i am not able to show respective names for those coordinates ,
 as getting Byref argument tyoe mismatch error. 
 Please help me to sort it out , since i have to give demo on the same in 
coming exams. 

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


$$Excel-Macros$$ Charts to Powerpoint, CommandBars.ExecuteMso "PasteSourceFormatting" Automation Error

2015-11-27 Thread Janek
Hi!

I have a problem with a copying macro that moves charts from excel to 
powerpoint. It is based on one of the many existing macros out there - i 
just changed a couple of settings and instead of placing metapictures, it 
now uses the command bar paste button to keep the charts in powerpoint 
editable. 

The problem is, that either powerpoint stops working (stops responding and 
tries looking for a "solution") or an "Automation Error" in Excel appears. 
This usually happens after 2 or 3 successful cycles through the loop.

Anybody an idea on how to solve this? I wasn't able to find any hint on 
that online. I am using the most recent Office package with all updates 
installed, Powerpoint Reference activated in Excel on Windows 10...

Thank you very much!

Janek


Sub PowerPoint()

Dim newPowerPoint As PowerPoint.Application
Dim ActiveSlide As PowerPoint.Slide
Dim Cht As Excel.ChartObject


customerFilename = "C:\LA_Template.pptx"
Set newPowerPoint = New PowerPoint.Application
newPowerPoint.Visible = msoTrue
newPowerPoint.Presentations.Open Filename:=customerFilename

'Show the PowerPoint'
 newPowerPoint.Visible = msoTrue
For Each Cht In Sheets("Graphs").ChartObjects


'Add a new slide where we will paste the chart'
newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.
ActivePresentation.Slides.Count + 1, ppLayoutText
newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.
ActivePresentation.Slides.Count
Set ActiveSlide = newPowerPoint.ActivePresentation.Slides(
newPowerPoint.ActivePresentation.Slides.Count)

'Copy the chart and paste it into the PowerPoint as a Metafile 
Picture'
Cht.Select
ActiveChart.ChartArea.Copy
'On Error Resume Next

'newPowerPoint.ActiveWindow.Activate
'newPowerPoint.ActiveWindow.ViewType = ppViewSlide'
newPowerPoint.Visible = True
newPowerPoint.CommandBars.ExecuteMso "PasteSourceFormatting"
'   
 ActiveSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select'
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: 
DoEvents

newPowerPoint.ActivePresentation.Slides(newPowerPoint.
ActivePresentation.Slides.Count).Shapes(2).Delete
'   Set the title of the slide the same as the title of the chart'
newPowerPoint.ActivePresentation.Slides(newPowerPoint.
ActivePresentation.Slides.Count).Shapes(1).TextFrame.TextRange.Text = Cht.
Chart.ChartTitle.Text

'   Adjust the positioning of the Chart on Powerpoint Slide'
newPowerPoint.ActivePresentation.Slides(newPowerPoint.
ActivePresentation.Slides.Count).Shapes(2).Select
With newPowerPoint.ActivePresentation.Slides(newPowerPoint.
ActivePresentation.Slides.Count).Shapes(2)
.Left = 15
.Top = 60
.Height = 300
.Width = 680
End With
Next
End Sub


-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.