Search results

Hi All, I am trying to add a botom border to an excel sheet from access vba with.... xlsht1.Range("A1:AZ1").Borders(xlEdgeBottom).Color = RGB(0, 0, 0) ...but i keep getting an error message saying : application defind or object defined error can anyone help?? Thanks, Spin.

thanks both for the advice. HiTech : your code worked fine thanks. Joh : I'll try your approach but i then i have to mail out the spreadsheet and i wanted it to be macro free. Is it worth setting up another spreadsheet to format it or is that going too far?? Thanks, spin.

Hi All, I'm trying to set some borders in excel using access VBA. i've got... xlsht1.Rows("1:1").Select With selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ThemeColor = 1 .Weight = xlThin End With .. but i keep getting an error message saying object required at the red...

that's spot on,thanks again crake. spin

hi, thanks for your reply. i know i have to use the timer but can you advise me where. I set the time in the properties window of the form then wher in the VBE (what event) do i apply the tmer and write the code to say 'me.formPicture.picture = "\myimg.jpg"'??? thanks spin

hi all, i have a form with an image. i want to dynamically change the image every few seconds. i'm sure i have seen this somewhere but can't remember where or what the procedure is called?? can anyone help, ta. spin.

OK, so it look as though ppt is a pain in the ass with no paste special feature (ppt 2007). so the solution was to (from access vba)... 1. create an excel instance and loop though my chart objects in excel. 2. copy those charts into an instance of word using paste special. 3. copy the picture...

hi, i made a mistake in the quoted part on this post but in the actual attachment the image path is assigned to a variable which is fine (i think). spin.

hi gemma, i can't find the unmatched quote in my code. when i assign the image path to a variable it looks like this to me.... d:\Documents and Settings\GFrewin\Desktop\My Power Point test\Pics\City Link.gif ...then i use it later as... Set ppShape = ppSlide.Shapes.AddPicture(courLogo...

Hi, thanks for your reply. i've attched a copy of what i've got so far. I need to change an image in slide 1 dependant on what courier is selected in my drop down box on my access form. I've commented the code where it should happen, it'll debug there anyway. any help would be great...

New requierment..... hello again, i thought i should leave this add on in this topic as it's related. I have managed to dynamically update ppt text boxes from access using the .shapes function to loop through all the shapes then set them as above. i now want to dynamically change an image. i...

Excellent, thankyou. i managed to get it working with For Each ppSlide In .Slides If ppSlide.SlideNumber = 1 Then For Each ppShape In ppSlide.Shapes If ppShape.ID = 3074 Then ppShape.TextFrame.TextRange.Text =...

Hi All, I'm trying to dynamically update some text boxes on a powerpoint presentation from access vba. I need to be able to loop through the text field/text box objects on a slide so i can set their values. I have.... Dim strPowerPointFile As String Dim pptobj As PowerPoint.Application Set...

Thanks for your reply. It has worked a treat. Do If xlsht.cells(iRow, iColCount).Value Like "To*" Then iColCount = iColCount + 1 End If Loop Until Month(xlsht.cells(iRow, iColCount).Value) + 1 = Month(Now()) + 1 And _ Year(xlsht.cells(iRow, iColCount).Value) = Year(Now()) spin :)

Hi All, I'm trying to loop through an excel range of dates from access vba. I want the loop to end when the date in my range matches the the current year and month. Problem is that not every cell is in date format so i could have... 01/01/09, 01/02/09, total 09, etc.... when it get to the...

thanks for the reply. im now using... Set lstBox = Me.lst_To_Address For Each varItem In lstBox.ItemsSelected lstBox.RemoveItem (varItem) Next varItem ..but still having the same problem??

Hey all, i'm trying to remove some items from a multi-select listbox (value list) using the follwing.... Set lstBox = Me.lst_To_Address For Each varItem In lstBox.ItemsSelected lstItem = lstBox.Column(0, varItem) lstBox.RemoveItem (lstItem) Next varItem ...however, it only remove...

hi all, hopefully just a quicky. I have a report with a table of scores for people. i'm trying to colour the highest score (max) green and the lowest (min) red. can someone help me itha formula. i've never used conditional formatting before. many thanks, spin.

cracked it.. need tp replace CdoReferenceTypeName with cdoRefTypeId and it seems to have worked. :)

All, I am trying to create an embedded image in a CDO set up mail. This is what i have.... Function SendEmail(strFrom As String, _ strTo As String, _ strSubject As String, _ Optional strBody As String = "", _...