Visual Basic :: Macro To Delete Specific Text Box In PowerPoint

Delete Powerpoint Slides Through Excel VB Macro (with Condition)
I was wondering if someone can help me with this problem.

After my presentation slides are created, I want to delete specific specific slides that do not have a Graph image. My excel macros export graph images to certain templates in my ppt slides. However, if this graph image is not on the template at all, I just want to delete the slide from the presentation.

So far (havent tested or anything, just logic, probably poor since im inexperienced)

Sub DeleteSlides()

Dim Pre As Presentation
Dim Sld as Slide
i As Integer
'Graph As Object ????

i = 50

Set Pre = ActivePresentation 'OR Sld = ActivePresentation.Slides(i)

For i = 50 to 55

If ActivePresentation.Slides(i).HasGraph = False Then
Set Sld = Pre.Slides.Delete(Index: = i) 'OR Sld.Delete

End If

End Sub

If anyone can offer some input for my problem, this would be greatly appreciated.

Keep in touch.

Thank you.

Use Excel Macro To Delete Rows With Specific Data In Cells
I need some help writing a macro that deletes a row (or number of rows) in a worksheet. We have an appointment scheduling app that exports the data in .CSV format. I run a macro that formats this .CSV file so we can insert it into another .XLS sheet that gets emailed to our retail locations to post their daily appointments. What I would like to automate is removing multiple rows that have N A in the firstname & lastname columns. Is there someway to "delete any row that has N in column c and A in column d"? We use the N A as fake names to fill in time slots we don't want to make "real" appointments. Now I have those times blocked out and have to manually delete each one before copying into the formatted worksheet that's mailed to the individual stores. Thanks for any and all help! TommyT.

Delete A Specific Line From A Text File?
Hey, look at my other threads for reference. I just need to delete a certain line for a text file. Anyone, how?

Thanx,
Mikelo2k

P.S I have asked alot of questionz today

Delete A Specific Line In A Text File
I have a miltiline text file. How can I delete 1 specific line from that file. For example line number 5?

How To Delete A Specific Line From A Text File
Hi!!! I am quite a new user of VB. And i would like to run a very small vb program, that will read a text file, find a specific word and delete the following 10 lines. I hope i made myself clear.
The code that i use is the following. Please help!!!!
Also can I put this code in the Private sub form_load() because the program is only code, it doesn't have any button or control, i dont need a form.
It is quite urgent
Thanks a lot

-------------------------------------------------------------------------------
Public Function DeleteTextLine(fName As String, LineNumber As Long)
Dim FileNum As Long
Dim lngloop As Long
Dim myString As String
Dim Found As Boolean
FileNum = FreeFile
Open "c:psiexecitmmld.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, myString
        If Trim(myString) = "PARK" Then 'where it starts
            Found = True
            For lngloop = 1 To 13
            Call deletelines("c:psiexecitmmld.txt", lngloop)
            Next lngloop
        End If
         Loop
Close #1
End Function
-----------------------------------------------------------------------

How To Delete Specific Text In A Text File
Hi all,
this is my very first time posting, so go easy on me.

background, I am NOT a developer!!!!

i am trying to delete a specific text from a text file, there are too many to use find and replace.

I have NO idea what to do or how to do it.

can you please help me?

thanks in advance.

To Search A Specific Word And Replcae Or Delete It With Text File
Hi again,

Never worked with files. thats why lot of question
also no time for trial and error..........................
Well the subject itself tells what i need...............

Thks in advance
Have a nice days
Anand

Hyperlinking To A Specific Slide In PowerPoint
I'm starting to wonder if this is actually possible. I'm using a web browser control in my project, and I want to use its Navigate method to navigate to a specific slide within a PowerPoint presentation. I thought I could do this using bookmarks, but PowerPoint doesn't let you insert bookmarks. I've tried making a hyperlink within PowerPoint to another slide, and then copying its notation for the link into my VB project, but I can't get it to work. Does anyone have any ideas on how I could go straight to the right slide? Thanks.

Need Help With Macro In Powerpoint
I need help with writing search macro in powerpoint for a 600 slide presentation. this should enable the user to search for something using a search string.

Macro In PowerPoint
Hello All

Each month I have to process 20 PPTs each with c90 slides.

On 80 of these slides is a textbos with a short description of what should be on the slide ( a picture pasted from elsewhere).

What I need to do after all the pastings have been done, is to loop throgh the PPT and either delete the textboxes, or delete the text in the textboxes. I can identify the textboxes i wish to delete, the text therein is of a particular font name, size and color which appears nowhere else in the PPT.

I wrote this code, but nothing happens, no errors, no nothing...

Dim oShape As Shape
Dim oSlide As Slide
Dim TxtRng As TextRange
Dim txtfont As Font
myrgb = RGB(Red:=255, Green:=0, Blue:=0)

For Each oSlide In Application.ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.HasTextFrame = msoCTrue Then
Set TxtRng = oShape.TextFrame.TextRange
Set txtfont = oShape.TextFrame.TextRange.Font

With TxtRng

If txtfont.color.RGB = myrgb And txtfont.Name = "arial" And txtfont.Bold = msoCTrue Then

TxtRng.Select
TxtRng.Delete

End If

End With

End If
Next oShape
Next oSlide

Can anyone point out where I'm going wrong

Thanx

Need Help: Powerpoint+Macro+VB
Hi all experts, gurus, professors, scientists,

Firstly, a basic background intro of me would be good. So that, you know how and where to begin helping me. If too many technicalities are used, I will be lost.

Basically, I have a basic programming experience, well I did it when I was in school. I did a couple of Pascal, C, a bit of Java. But to be honest, that was at least 10years ago. And, I have not touched any of that eversince. In short I've lost touch, tho, I still remember the fundamentals of programming. I used to be good in it when in school

Now, I'm working on to develop Macros and Addins for Microsoft Powerpoint. My work requires that. Later on, I will need VB in MS Excel and MS Word, but for now, MS Powerpoint.

I need help with a good introduction on how to code VB in MS Powerpoint. Using the syntax, tools, etc. I tried a couple of samples and I couldnt run them on Powerpoint.

So, let's take it as I'm a newbie, and you are the teacher. How do you start? Or, where should I start?

Thanks for all your kindness and help in advance.

AcerpcMND

Created A Macro For PowerPoint
Hello, i've got a little problem here. I only started yesterday prograaming with vb. I created a macro that turns gif files on presentations to jpg. Everytime i want to run that file, i have to load the macro through PP and than run it. anyway i can run that macro on a file without opening any of them? any way i can run that macro on a whole directory? i would b very happy if anyone could help me here.

thanx

Running A Powerpoint Macro...
Hello,

I cant figure out how to run a powerpoint macro from vb.net

I open the file and then need a macro to be ran.

here is the code i use to open the file:

ppapp = CreateObject("powerpoint.Application")
With ppapp

.Visible = True
ppPres = ppapp.Presentations.Open(FileName:="c:
atiomodelnewchanges.ppt")

End With

************************************
This works fine but I cannot find a command to run a macro that is part of this file...

thanks

Ask For Help About Macro Or Action In Powerpoint
I want to record a new macro for microsoft powerpoint using visual basic. When I run this macro, the selected picture in the powerpoint file will be displayed on the screen like the slide show mode with the maximum width or height, while keeping the original ratio of the width and the height of the selected picture. Then it will return to the orginal slide with that selected picture as I click anywhere in the screen.

I can run this macro in edit mode to display only the magnified selected picture in the screen. Or I can define a action to realise the same function as I click a picture during the slide show.

How to write the macro or the action using visual basic?

Thank you very much.

Quick PowerPoint Macro Question
For my powerpoint creation macro in VB I have

Code:
Dim ppSlide1 As PowerPoint.slide
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutTitle)

With ppSlide1.Shapes(1).TextFrame.TextRange
'''
.Font.NameOther = cboFont.Text
.Font.Color = RGB(txtFontRed.Text, txtFontGreen.Text, txtFontBlue.Text)
.Font.Size = 54
''''
.Text = title(1)
End With

For some reason... The Font/Size/Color Selection doesn't work..
but the rest of the app continues on fine, and creates the powerpoint

any ideas why its not working / i'm doing something wrong? etc?

thanks

PowerPoint Macro Save Function?
I just have a question, ive been playing with the powerpoint macro function in my VB app, and i can't seem to find how to do the following functions:

1. Save the automated slide to the harddisk (e.g. file.ppt)
2. Open multiple powerpoints and take the data out of them, and strinigng them together in one file.

for ppt macro thing.. i'm using the one at:

http://support.microsoft.com/default...NoWebContent=1

Powerpoint Macro To Run Whenever A Slide Is Added?
is it possible to set up a powerpoint macro that would run whenever someone added a slide to the file?

Pull Data Into Powerpoint From Cgi Script Via VBA Macro?
Hello all.

I'm working no a project to dynamically update a PowerPoint template file with new data that comes from a web server. I've finally come 'round to this "VBA-pull" solution after looking into many other methods, and after reading VBA-forum posts mentioning "powerpoint" back a year.

I've done enough research to have put together
a PPT file with a chart on the first slide, and a VB macro that
can insert new data (hard-coded into the VB) into the chart's data
table. So if I can get new data from outside into the macro, I'm
scot free. (The real project has 100 slides, each with a pie or
bar chart of ~6 data points, in a template file.)

The data is to come from a Perl script on the server. For historical
reasons, the data to be charted comes from plain text files that have to be parsed.

I also have made another macro that will open up an Internet Explorer
window and surf to a specified (again, hard coded) url.

I've seen, but not yet personally implimented, VBA code that can
reference form elements in the html page of the opened IE window.

So, I was imagining opening an IE window and calling the Perl script,
outputting the parsed data to hidden form fields in the IE window's
html page, accessing their values with the VB and updating the charts' data tables.

But there are two remaining issues with this approach:

a)that sounds clumsy to me. It would be much better if VBA could communicate with the cgi script directly without opening an IE window. I see that it can perform SQL queries, how hard can it be to get it to call a cgi script?

b)At the moment the user requests this dynamically generated PPT
file, he has been viewing one data table text file from among thousands.
The PPT VB needs to know which table he wants charted. I have
that information stored in a hidden form field in the user's browser
window, but I can't guarantee the user is using IE, it could be
Netscape or any other browser. Saying this feature only works with
IE is an option, but only if absolutely necessary.

Any and all advice will be greatly appreciated.

Macro Email Auto Sender For Powerpoint
I'm looking for a macro that will Click on a picture (the picture has a Mailto link set up on it) after opening the email message in Outlook the macro will hit alt+s in that window.

Can anyone give me this please?

Thanks in advance

PowerPoint: Launch Macro At Document Open
We have a single slide PowerPoint document that users simple enter data into and then print it out. I'd like to have a message pop up that provides the user with information when the document is opened.

If this was Excel, I'd go into the This Workbook module and use this code:

Private Sub Workbook_Activate()
MsgBox ("Remember to fill in all the blanks before printing.")
End Sub

Unfortunatley, I've never worked with VisualBasic in PowerPoint. How or where would I place such a message so that it would pop up each time the document was opened?

Thanks for your help!

Mark

Powerpoint Macro Whilst Viewing Show
Hi all

I am trying to run a ppt macro which works fine whilst editing the the file but as soon as I view the show, it fails to work.

Can anyone give me some hints on how to make a shape visible/invisible via the click or mouseover of another shape?

I'd like to be able to mouse-over a shape and have another one appear with more 'details' and then disappear again when the mouse leaves that shape.

Thanks in advance,

Bas

A Really Basic Question About Addressing A Textbox On A PowerPoint Slide From A Macro
I am trying to have PowerPoint create several slides that each have am image of a recursive mathematical function. I have written a macro that will create the desired number of slides and draw the image I want, but I can't get the program to put the elements of each cyles into a textbox on each slide. I have put the code of the macro below.

"cycle" is that array that contains the output elements of each cycle and "pts" is the array that has the coordinates of the points on the circle that represent each cycle's elements. I want to put the array "cycle" into a textbox on each page.

Code:
Const modulus = 10
    Const mult = 7
    Dim cycle(modulus)
Sub creatCycles()
'
' Macro recorded 5/11/2004 by
'
    Dim i As Integer
    Dim j As Integer
    Dim w As Integer
    Dim h As Integer
    Dim xc As Integer
    Dim yc As Integer
    Dim u As Integer

    'set slide dimensions
With Application.ActivePresentation.PageSetup
    .SlideWidth = 8.5 * 72
    .SlideHeight = 8.5 * 72
    h = 400
    w = 400
End With

     'set center and unit length
    xc = w / 2
    yc = h / 2
    u = xc

'create new window
    For i = 1 To modulus
        createNewSlide
    Next

'create cycle
For j = 1 To modulus

    cycle(1) = j

    For i = 2 To modulus
        cycle(i) = (mult * cycle(i - 1)) Mod modulus
    Next

'create coordinates of cycle's elements on the circle
    Dim pts(1 To modulus, 1 To 2) As Single

    For i = 1 To modulus
        pts(i, 1) = (Cos(6.28 / modulus * cycle(i))) * u + xc
        pts(i, 2) = -(Sin(6.28 / modulus * cycle(i))) * u + yc
    Next

'draw the cycle
    For i = 1 To modulus - 1
        Set myDocument = ActivePresentation.Slides(j)
        myDocument.Shapes.AddLine pts(i, 1), pts(i, 2), pts(i + 1, 1), pts(i + 1, 2)
    Next

    pts(modulus, 1) = pts(1, 1)
    pts(modulus, 2) = pts(1, 2)
Next
' createTextBox() here and enter the cycle's elements

End Sub

Sub createNewSlide()
'
' Macro recorded 5/12/2004 by
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
End Sub

Sub createTextBox()
Dim i As Integer
Dim modulus As Integer
modulus = 10
For i = 1 To modulus
    Set myDocument = ActivePresentation.Slides(i)
    myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    30, 462, 550, 100).TextFrame.TextRange.text = ""
Next
End Sub

I also want to draw "dots" on the circle where the cycle touches the circle. I hope that's clear.

I'm sure you can tell that I'm not a programer, so please keep the answer simple. All of the code I know I gained from letting the program write a macro and then I modified it. If you can recommend a good text, I would appreciate it.

Thanks,

Vicki

Edited by - vpayne on 6/1/2004 2:41:54 PM

How Do I Run A Macro At A Specific Time
I am using MS ACCESS 2000 and want to have a SendObject macro run each day at midday, i have been told it is possible although i cannot find out how.

Any Ideas?

Regards
Matt

Run Macro At Specific Time
At 3:00pm daily, I want to output "DONE" in a specified cell. However, I cannot get the OnTime method to work automatically. Do I need to create an event? I have a subroutine that simply outputs done to a cell:

Sub fillCell
Range("E4").Value = "DONE"
End Sub

How do I run this automatically at 3pm? TIA.

Run Macro On Specific Day Of Week
looked everywhere for a simple solution... none to be found

Just want to do the following:

Code:
If Weekday = Saturday then...
'Run this code
End if

I have looked in MS Help, Mr. Excel, MSN.com & Here...Nothing
Any help would be appreciated
Thanks

Run Macro At Specific Time
Hi,

I was wondering if you can run macro's in excel automatically at a certain time?

Cheers

White Magic

Starting Macro When A Specific Value Changes
I want to start a macro when in a specific cell a value is entered or changed.
If tried this:

vb
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("b27").Value > 0 Then
Call hydraulic_nut
End If

End Sub

Sub hydraulic_nut()
Dim S As String
S = WorksheetFunction.VLookup(Range("b27").Value, Sheets(3).Range("A2:B45"), 2, False)
Range("b28").Value = S
End Sub

vb
But the program gets very slow when i start an other macro (which put many results of the sheet)
What is the solution?

Maarten

End A Loop Macro At A Specific Row??
Ok here is the deal. I want this macro to loop until it hits row 515, no matter what is in the cells. Right now of course it keeps going until it finds an empty cell. Any ideas??

Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Range("A1").Select
Selection.Cut
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -2).Range("A1").Select
Selection.Cut
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -3).Range("A1").Select
Selection.Cut
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -4).Range("A1").Select
Loop
End Sub

Thanks,
Michael

Run Macro On Specific Cell Change
Is there a way to have a VB Macro run when a specific cell changes value ? I am able to have a macro run when a "sheet data change" takes place, but do not know how to isolate a specific cell to be watched, while ignoring any other changes to the sheet.

Thanks in advance for any help !!!

Running A Macro On A Specific DAY & Time
I know about the On Time Method... However can this method be modified to run on a specific Day as well as time...say Wednesday @ 3:00pm...Or is there another method that covers both Day & Time automation...

Thanks...

Not Linking A Macro To A Specific Workbook
I have created a few Macros but they are linked to the workbook. So stupid question, but how do I make it so that ANY time I open a workbook, the code can be run but not be directly linked to to a workbook. In other words, every month I receive a new workbook and I want to run a macro to clear a bunch of cells out (which works) but it always goes back to the original workbook.

Is there a place all my code should be? I have 2 macros saved in the toolbar and I wan to open ANY sheet and us the macro?

Edit by Moderator:
Please post Excel questions, in the Excel forum.

Thank you.

Connect Comandbutton To A Specific Macro?
How and where do I connect a command button to a recorded macro?

/G

Specific Delete With Recordsets
Hi,

I'm using ADODB.recordset and I want to delete specific records from my recordset.

I know how to do this in SQL but I'm unsure of how to do it with recordsets.

Can anyone help?

H.

Delete A Specific Charater
If i have the string "give me the #1"

how do i delete the # from the string?

given that the # could be anywhere in the string and there could be multiple #'s in the string?

Ex. "i am #1 and you are #2"
i want it to read "i am 1 and you are 2"

Thank You,

Mark S

Find And Delete Specific
I am trying to create a macro in excel that will find a specific keyword and then delete the row where the search is found and the subsequent four or rows underneath this find. How would I go about doing this? Any help would be great, thanks in advance.

How Do I Delete A Specific File?
I need to delete a specific file in the directory the program sits. There are a couple of problems. I can't declare a File object. So what do need to reference. Secondly i can't use the File.Delete command for the same reason as the first problem. Any help will be appreciated. Thanks. I'm using VB 6

Use Macro To Find A Specific Word In Excel
Hi all,

I need the help as currently i have created a vb program which link to excel worksheet. The program has to search for example "FREIGHT" word in EXCEL column B. If the column B has such "FREIGHT" wording, the program should stamp "FOUND" in column C else nothing will stamp in column c.
I can use below script to find the "FREIGHT", but my question is how to set "FOUND" in column C if the "FREIGHT" wording is found in column b? Anybody got any clue on it ?

ExcelSheet.Columns.Find(What:="FREIGHT", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Please help!
Thanks!

From,
Siaw Ch'ng

Firing A Macro On Selecting Specific Sheet
The subject says it all really.

How can I get Excel to fire a macro when one of the sheets in my workbook is selected?

Thanks

Francis Neil Beans

Approach To Delete A Specific Line From A .txt
I want to delete a specific line (e.g the fifth) from a file. A good (malloc's) solution was to read the first 4 lines and write them to a new file. After that read the 5th line and do nothing with it. Then read the rest of the file and append it to the new file. Kill the old file, rename the new file and that's it.The following was my personal approach to this. The problem is that I got a error when I try to open the second file (error.caption= "File already open").Can anyone help me about it?

currentListSelection = (LstFavorites.ListIndex) 'It takes the number of the current record
Open "FavoritesFile.txt" For Input As #oldFavorites
Open "tempFavorites.txt" For Append As #newFavorites '<--HERE IS THE ERROR
While Not EOF(oldFavorites)
counter = counter + 1
If counter = (currentListSelection + 1) Then '+1 in order for the initial 0 to become 1
Line Input #oldFavorites, TempRecord 'Goes next line to the old file
MsgBox "I do not write a record"
Else
MsgBox "I write a record"
Line Input #oldFavorites, TempRecord 'Goes one line next to the old file
Write #newFavorites, TempRecord 'Writes the record to the new file
End If
Wend
Close #newFavorites
Close #oldFavorites
Kill "FavoritesFile.txt"
Name tempFavorites.txt As FavoritesFile.txt

Delete Specific Lines Out Of A .txt File.
I am trying to figure out how to delete specific lines out of a .txt file. The file has too many lines to just copy all of the lines to an array and then put back what I want to keep. I just want to read from the file, put the first 545 lines into an array, then delete those lines. I can't figure out the best way to do this. Any suggestions?

Delete Specific Code From A Module
Hi everyone...I've received help on this already...but I'd like a little more if possible. This bit o' code works great!! It deletes the Workbook_Open event in the workbook this code resides in. What I'd like it to do is delete the Workbook_Open from a list of workbooks if finds in column A:A.

Code:
Sub DeleteProcedure()

Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long

Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

With VBCodeMod
StartLine = .ProcStartLine("Workbook_Open", vbext_pk_Proc)
HowManyLines = .ProcCountLines("Workbook_Open", vbext_pk_Proc)
.DeleteLines StartLine, HowManyLines
End With

End Sub
For instance, this bit o' code will delete all the code from the workbooks it finds listed in column A:A:

Code:
Sub removeCode()

Dim awcl As Integer 'activeWorkbook Component countline
Dim i As Variant
Dim myBk As String
Dim myDir As String
Dim myRng As String

myRng = Worksheets("Sheet1").Range("B1").Value
myDir = Worksheets("Sheet1").Range("C1").Value
For Each i In Worksheets("Sheet1").Range(myRng)

myBk = i.Value
Application.ScreenUpdating = False
Workbooks.Open myBk, , , , "password", "password"

For Each book In Workbooks

If book.Name <> ThisWorkbook.Name And book.Name <> "PERSONAL.XLS" Then

For Each vbitem In book.VBProject.VBComponents

awcl = vbitem.CodeModule.CountOfLines
vbitem.CodeModule.DeleteLines 1, awcl

If vbitem.Type <> 100 Then
book.VBProject.VBComponents.Remove vbitem
End If

Next vbitem

End If

Next book

ActiveWorkbook.Save
ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub
Can anyone help me modify either of them so that they will delete only the Workbook_Open event from all the workbooks listed in column A:A?

Thanks for any help...I appreciate it!!!

Dave

Delete Specific Code From A Module
Hi everyone...if this code deletes a module:

Code:
Sub DeleteModule()

Dim VBComp As VBComponent

Set VBComp = ThisWorkbook.VBProject.VBComponents("Module1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp

End Sub
How can I remove a specific sub from a module? Let's say I have a sub called:

Code:
Sub IndexFiles()
how could I delete just that sub and not any others?

Thanks for any help!

Dave

Delete Specific Records From A Table.
I need to delete specific records from a table using ADODB
code. I have tied the following
Code:
Option Explicit

Private WithEvents Cn As ADODB.Connection
Private WithEvents rsRecordSet As ADODB.Recordset

Form_Load()
Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
Cn.Open dataBase

Set rsRecordSet = New ADODB.Recordset
rsRecordSet.Open "Select * From QuoteDets WHERE QuoteNo = " & cboQuoteNo.Text, Cn, adOpenStatic, adLockOptimistic
End Sub

Delete()
'I want to say "Delete * From QuoteDets WHERE QuoteNo = " & cboQuoteNo.Text
'But .Execut isn't an option for rsRecordSet
End Sub