Replies

Thank you very much. I have a reference to excel 10.0 object library. I changed the code, see below. I still get a page fault error when i try it on a w95 box but i tested on both nt and w2000 and it works fine. Also, on the w95 box it does open excel but then i get a page fault error.

dim xlsApp as excel.application
private sub submit_click()
dim wb as workbook

set xlsApp = new Excel.Application
xlsApp.Workbooks.Open filename:=App.Path & “contacts.xls”
call addtoexcel

if msgbox(“enter another?”, vbyesno) = vbno then
activeworkbook.close saveChanges:=true
xlsApp.quit
set xlsApp = nothing
end

else
call cleartextboxes
end if
end sub

private sub addtoexcel()
dim rngData as range
dim rngRow as range
dim lastRow as integer

worksheets(“Data”).activate
set rngData = xlsApp.Range(“A3”).currentregion
lastRow = rngData.rows.Count + 1
xlsApp.Range(“A” & lastRow) = txtDate.text
end sub

ok, that i can do. now it makes sense thanks for hanging in there with me to explain.

ok, yes now i see. After the user resizes their window i want to save the height and width and use the next time they open the program. I looked up code on saving to an .ini file but don’t understand it. I just want to save it somehow in my vb6 program so when the user opens the program up the window will be the same size as when they closed it. thanks for all the posts and the help

believe it or not my users wouldn’t know how to change their resolution.

by w95 i meant windows 95. I tried to use the code with w95 and word97 and it bombed. thanks

Thank you. I’m not familiar with how to put these declare functions into a vb6 project? When i just cut and paste the code it doesn’t like the “Declare Function…” Do you know how i can modify for vb6? thanks a lot

yes, that is in there already. I’ve set the reference to Microsoft Excel 10.0 object library.

The exe runs on win2000 and winnt but i get an error on win95. The error is not specific enough or doesn’t give me many details. I thought there might be another common element i’m supposed to add to this vb6 program to make it cross-platform compatible.

hi, it’s me again. Everything is working well. I’m able to add different master templates to the “newpres”. After the user selects the sections they want and selects the template design they like, i need to add a client logo to their presentation. I want to add it to the master page so it appears in the bottom righthand corner of every slide.

I have the user put the client’s logo file in c:logos and then i have them enter the name of it into a textbox in my app’s form, txtClientLogo.text. How do I get to the slide master of the template that is chosen and insert the logo in a specific position? I’ve tried to do it using the macro reader but I can’t seem to program it for any file that is entered in the txtClientLogo.text box and located in c:logos.

Can you give me some guidance. Thank you

this is soooooo totally cool! i can’t thank you enough.

the move up and down works for me

worked great! thanks much

Ok, thanks. What if they are in 2 different workbooks?

Thank you so much!

ok, it didn’t work with address property so i’ll try row. thanks a lot

Thank you. Once i have the array loaded I just want to extract the numbers of the cell. A41, A2424, i want to load another array with num(0) =41 and num(1)=2424. I’ve tried val(“A41”) but that doesn’t work. Thanks

j = 1
for each chart.object
Search for first chart.object and activate it
ActiveChart.SeriesCollection(1).select
ActiveChart.SeriesCollection(1).Points((Address(j)) – 7).select
with selection.interior
.colorIndex = 1
.Pattern=xlSolid
end with
j = j + 1
next

I have a list of 50 cities in column A. Next to it i have a bar chart that is a separate object. The bars are all red but i have to turn one of them black. I search thru the 50 cities for the words US TOTAL and say it falls in cell A41. It turns out that the “point” in the bar chart that needs to be made black is 7 less than 41. There are 100 of these charts on the sheet and it is an ongoing job, therefore i want to make an automatic way to make the bar black. Hope you can help me. thanks