"Ken Johnson" wrote:
I use Google Groups and tried 5 times to post a solution here...
http://groups.google.com.au/group/mi...71c861c59d83d9
The following solution (no "x y z"s w/o spaces) just kept on
disappearing after varying times...

I am not sure what you are trying to say. Forgive me if I misunderstand.
And if I did, please clarify the purpose of your comment.

If you are trying to saying that you do not see your (five) responses in
Google Groups, I confirm: I don't see them either using the GG web
interface.

But this thread is about problems with lost messages on the MSNews server,
not the Google Groups server.

I have no idea why you might not see your messages using GG, given that you
submitted them using GG. That would be fodder for another thread ;-).

It does not surprise me that it is not the same "x y z" problem that is
plaguing the MSNews server. And even w.r.t the MSNews server, there might
be other problems that cause lost messages.

FYI, I do see five responses of yours to that thread on the MSNews server.
They a

Date: Thu, 24 Dec 2009 14:43:09 -0800 (PST)
Message-ID:


Date: Thu, 24 Dec 2009 16:28:46 -0800 (PST)
Message-ID:


Date: Fri, 25 Dec 2009 15:03:05 -0800 (PST)
Message-ID:


Date: Mon, 28 Dec 2009 07:03:14 -0800 (PST)
Message-ID:


Date: Tue, 29 Dec 2009 06:40:22 -0800 (PST)
Message-ID:


(MSNews m.p.e.misc article numbers 888882, 888886, 888912, 889048 and 889180
respectively.)

If you want to investigate this further, you might try starting with a GG
search using the those messages IDs.

And you might try posting the body of those messages in test messages posted
to m.p.test.here, trying isolate the content, if any, that is causing
problems. If you need a exact copy of the
GG messages that you posted, I can get them from the MSNews server and send
them to you in email.

BTW, since they do appear on the MSNews server, it does mean that they were
transmitted successfully to the GG server; no external networking problem.
What happened after that within the GG intranet is anyone's guess at this
point.

Good luck!


----- original message -----

"Ken Johnson" wrote in message
...
I use Google Groups and tried 5 times to post a solution here...
http://groups.google.com.au/group/mi...71c861c59d83d9
The following solution (no "x y z"s w/o spaces) just kept on
disappearing after varying times...

Try not using Dim oPic As Picture, use Dim oPic As Shape instead.
It means an extra loop to hide Shapes that are Pictures without hiding
any other Shapes...

Private Sub Worksheet_Calculate()
Dim oPic As Shape
For Each oPic In Me.Shapes
If oPic.Type = msoPicture Then
oPic.Visible = False
End If
Next oPic
With Range("ad1")
For Each oPic In Me.Shapes
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

Ken Johnson


Ken Johnson