I created a simple macro in 2003 to convert text in the slide to a certain
size font. I read that the original file (which I named standard.ppt) needs
to be open to run. This worked for 2003 but I have been upgraded to 2007
and now I can not get the macro to run. I have already attempt to change
the settings to 'enable' all macros, etc. and nothing seems to be working.

How can I get this to run in my 2007?

Here's teh original code:

Sorry ... here's the code created using 2003
Sub ChangeFont( )
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=394,
Length:=1).Select
ActiveWindow.Selection.TextRange.Text = ""
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1678,
Length:=1).Select
ActiveWindow.Selection.TextRange.Text = ""
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=3508).Select
With ActiveWindow.Selection.TextRange.Font
.Name = "Arial"
.Size = 12

End With
End Sub

"Steve Rindsberg" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> In article <(E-Mail Removed)>, Annette wrote:
>> I created a simple macro in 2003 to convert text in the slide to a
>> certain
>> size font. I read that the original file (which I named standard.ppt)
>> needs
>> to be open to run. This worked for 2003 but I have been upgraded to 2007
>> and now I can not get the macro to run. I have already attempt to change
>> the settings to 'enable' all macros, etc. and nothing seems to be
>> working.
>>
>> How can I get this to run in my 2007?
>>
>> Here's teh original code:
>
> And there endeth the message. Try resending the code ...?
>
>
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>

I from someone who has a hard time spelling macro, believe that Steve's
first line should read: Sub ChangeFont()





"Steve Rindsberg" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Looks like Macro Recorder's been busy. ;-)
> You can tell by the ugliness of the code.
>
> Try this instead.
>
> Sub ChangeFont
> With ActiveWindow.Selection.ShapeRange.TextFrame.Text
> .Font.Name = "Arial"
> .Font.Size = 12
> End With
> End Sub
>
> Then do Office Button | PowerPoint Options
> Click Trust Center on the left, then Trust Center Settings on the right
> Click Macro Settings on the left
> Click "Disable all macros with notification"
> OK
>
> Now try running the code
>
>
> In article <(E-Mail Removed)>, Annette wrote:
>> Sorry ... here's the code created using 2003
>> Sub ChangeFont( )
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=394,
>> Length:=1).Select
>> ActiveWindow.Selection.TextRange.Text = ""
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1678,
>> Length:=1).Select
>> ActiveWindow.Selection.TextRange.Text = ""
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
>> Length:=3508).Select
>> With ActiveWindow.Selection.TextRange.Font
>> .Name = "Arial"
>> .Size = 12
>>
>> End With
>> End Sub
>>
>> "Steve Rindsberg" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>> > In article <(E-Mail Removed)>, Annette wrote:
>> >> I created a simple macro in 2003 to convert text in the slide to a
>> >> certain
>> >> size font. I read that the original file (which I named standard.ppt)
>> >> needs
>> >> to be open to run. This worked for 2003 but I have been upgraded to
>> >> 2007
>> >> and now I can not get the macro to run. I have already attempt to
>> >> change
>> >> the settings to 'enable' all macros, etc. and nothing seems to be
>> >> working.
>> >>
>> >> How can I get this to run in my 2007?
>> >>
>> >> Here's teh original code:
>> >
>> > And there endeth the message. Try resending the code ...?
>> >
>> >
>> >
>> >
>> > ==============================
>> > PPT Frequently Asked Questions
>> > http://www.pptfaq.com/
>> >
>> > PPTools add-ins for PowerPoint
>> > http://www.pptools.com/
>> >
>> >
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>

I inserted the code, then looked at the settings ... they are set for
"disable all macros with notification" ... even thried enable all macors, it
keeps erroring:

"The macro cannot be found or has been disabled because of your security
settings"

The macro I loaded directly into the powerpoint so it wouldn't have to find
it and still ...

Any thoughts?


"Steve Rindsberg" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Looks like Macro Recorder's been busy. ;-)
> You can tell by the ugliness of the code.
>
> Try this instead.
>
> Sub ChangeFont
> With ActiveWindow.Selection.ShapeRange.TextFrame.Text
> .Font.Name = "Arial"
> .Font.Size = 12
> End With
> End Sub
>
> Then do Office Button | PowerPoint Options
> Click Trust Center on the left, then Trust Center Settings on the right
> Click Macro Settings on the left
> Click "Disable all macros with notification"
> OK
>
> Now try running the code
>
>
> In article <(E-Mail Removed)>, Annette wrote:
>> Sorry ... here's the code created using 2003
>> Sub ChangeFont( )
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=394,
>> Length:=1).Select
>> ActiveWindow.Selection.TextRange.Text = ""
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1678,
>> Length:=1).Select
>> ActiveWindow.Selection.TextRange.Text = ""
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
>>
>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
>> Length:=3508).Select
>> With ActiveWindow.Selection.TextRange.Font
>> .Name = "Arial"
>> .Size = 12
>>
>> End With
>> End Sub
>>
>> "Steve Rindsberg" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>> > In article <(E-Mail Removed)>, Annette wrote:
>> >> I created a simple macro in 2003 to convert text in the slide to a
>> >> certain
>> >> size font. I read that the original file (which I named standard.ppt)
>> >> needs
>> >> to be open to run. This worked for 2003 but I have been upgraded to
>> >> 2007
>> >> and now I can not get the macro to run. I have already attempt to
>> >> change
>> >> the settings to 'enable' all macros, etc. and nothing seems to be
>> >> working.
>> >>
>> >> How can I get this to run in my 2007?
>> >>
>> >> Here's teh original code:
>> >
>> > And there endeth the message. Try resending the code ...?
>> >
>> >
>> >
>> >
>> > ==============================
>> > PPT Frequently Asked Questions
>> > http://www.pptfaq.com/
>> >
>> > PPTools add-ins for PowerPoint
>> > http://www.pptools.com/
>> >
>> >
>
>
> ==============================
> PPT Frequently Asked Questions
> http://www.pptfaq.com/
>
> PPTools add-ins for PowerPoint
> http://www.pptools.com/
>
>

Thanks, I'll remember that the next time I have anything to do with macros
;o-))




"Steve Rindsberg" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> In article <B59DE9AE-683A-4779-8114-(E-Mail Removed)>, Michael
> Koerner
> wrote:
>> I from someone who has a hard time spelling macro, believe that Steve's
>> first line should read: Sub ChangeFont()
>
> Sheesh, everybody's a canadian ...
>
> VBA will fill in the parens for us. I keep TELLING you this stuff is
> magic, man.
>
> But ... um ... yer right.
>
> ;-)
>
>
>
>
>

OK. I have a dumb question. Did you close the PPT and re-open after
setting the settings? Macros are either enabled or disabled when you
start the presentation so if you change the settings, they won't take
effect until you open the presentation again.
--David

On 4/25/10 9:42 AM, Annette wrote:
> I inserted the code, then looked at the settings ... they are set for
> "disable all macros with notification" ... even thried enable all macors, it
> keeps erroring:
>
> "The macro cannot be found or has been disabled because of your security
> settings"
>
> The macro I loaded directly into the powerpoint so it wouldn't have to find
> it and still ...
>
> Any thoughts?
>
>
> "Steve Rindsberg"<(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>>
>> Looks like Macro Recorder's been busy. ;-)
>> You can tell by the ugliness of the code.
>>
>> Try this instead.
>>
>> Sub ChangeFont
>> With ActiveWindow.Selection.ShapeRange.TextFrame.Text
>> .Font.Name = "Arial"
>> .Font.Size = 12
>> End With
>> End Sub
>>
>> Then do Office Button | PowerPoint Options
>> Click Trust Center on the left, then Trust Center Settings on the right
>> Click Macro Settings on the left
>> Click "Disable all macros with notification"
>> OK
>>
>> Now try running the code
>>
>>
>> In article<(E-Mail Removed)>, Annette wrote:
>>> Sorry ... here's the code created using 2003
>>> Sub ChangeFont( )
>>>
>>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=394,
>>> Length:=1).Select
>>> ActiveWindow.Selection.TextRange.Text = ""
>>>
>>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1678,
>>> Length:=1).Select
>>> ActiveWindow.Selection.TextRange.Text = ""
>>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
>>>
>>> ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
>>> Length:=3508).Select
>>> With ActiveWindow.Selection.TextRange.Font
>>> .Name = "Arial"
>>> .Size = 12
>>>
>>> End With
>>> End Sub
>>>
>>> "Steve Rindsberg"<(E-Mail Removed)> wrote in message
>>> news:(E-Mail Removed)...
>>>> In article<(E-Mail Removed)>, Annette wrote:
>>>>> I created a simple macro in 2003 to convert text in the slide to a
>>>>> certain
>>>>> size font. I read that the original file (which I named standard.ppt)
>>>>> needs
>>>>> to be open to run. This worked for 2003 but I have been upgraded to
>>>>> 2007
>>>>> and now I can not get the macro to run. I have already attempt to
>>>>> change
>>>>> the settings to 'enable' all macros, etc. and nothing seems to be
>>>>> working.
>>>>>
>>>>> How can I get this to run in my 2007?
>>>>>
>>>>> Here's teh original code:
>>>>
>>>> And there endeth the message. Try resending the code ...?
>>>>
>>>>
>>>>
>>>>
>>>> ==============================
>>>> PPT Frequently Asked Questions
>>>> http://www.pptfaq.com/
>>>>
>>>> PPTools add-ins for PowerPoint
>>>> http://www.pptools.com/
>>>>
>>>>
>>
>>
>> ==============================
>> PPT Frequently Asked Questions
>> http://www.pptfaq.com/
>>
>> PPTools add-ins for PowerPoint
>> http://www.pptools.com/
>>
>>
>
>


--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland