Animated text or objects in excel sheets

[Ed B. Delen]

Hi

with this board, I learned a lot and developed our reporting sytem on excel without macro and can be viewed by all network users. I changed all sheets background as in HTML pages. Now I want to make my excel sheets more live when somebody from the network inquires and views the system. Is there any way I can add, moving text or object that will also function in excel sheet?

Thanks in advanced.

ed b delen

 

[erik.van.geit]

Hi, ed b delen,

developed our reporting sytem on excel without macro

if it's your purpose to avoid macros, it will be impossible to let move objects
can you give an example of what you would like to move on your screen

Sub UFO()
'Erik Van Geit
ActiveSheet.Shapes.AddShape(msoShapeOval, 0, 55, 55, 5).Name = "ufo"
ActiveSheet.Shapes("ufo").Fill.ForeColor.SchemeColor = 13

loops = 800
With ActiveSheet.Shapes("ufo")
      For f = 1 To loops
      .Left = .Left + 0.2 * Sqr(f)
      If .Left > 600 Then .Left = 0
      If f Mod loops / 3 * 2 <= loops / 3 Then g = 1 Else g = -1
      .Top = .Top + g
      DoEvents
      Next f
End With
ActiveSheet.Shapes("ufo").Delete
End Sub

kind regards,
Erik

 

[Ed B. Delen]

Yes, I already completed my program. It works great. To give you an over view, I have database in one sheets with lots of fields. on the other sheet I have my inquiries to extract data from my datasheet such as, date range from & to, then the data will come. I used also, lookup, index, isna match so that when i post my inquires data that satisfied my criteria will come. another I used is the sumif and sumproduct. Its a nice program. For example, i want to see the summary of certain data with respect to product size, product location it perfectly comes. In my report sheet, I changed the sheet background, disable the grids, etc till it becomes something likes HTML page when you're browsing some sites. Now I want to add some animated text that will also work in excel. Example, the name of our company, while somebody is viewing the page, I want it moving back & forth. THis is just to have a good presentation of the spreadsheets.

thanks

have a nice day & regards,
ed

 

[erik.van.geit]

Now I want to add some animated text that will also work in excel. Example, the name of our company, while somebody is viewing the page, I want it moving back & forth.

the question is: how could we produce an event without macro ? I don't know the answer

here again some code to give you an idea of what's possible
"back and forth" is not clear to me, so this one is just movinf to the right

Sub wordart_move()
loops = 100
With ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "company", "Arial Black", 24, msoFalse, msoFalse, 10, 10)
.Fill.ForeColor.SchemeColor = 10
      For f = 1 To loops
      .Left = .Left + 1
      DoEvents
      Next f
starttime = Timer
  Do
  DoEvents
  Loop While Timer - 5 < starttime
.Delete
End With
End Sub

kind regards,
Erik