Re: Jak w *.xls usunąć autora komentarza?

Article View: pl.comp.lang.vbasic

Article #92273

Back to pl.comp.lang.vbasic Previous Next

#92273

From: juras
Date: Fri, 21 Oct 2005 08:39

27 lines
1827 bytes

Użytkownik "Stanislaw" <stanislaw_@op.pl> napisał w wiadomości
news:1129883336.717627.107690@g43g2000cwa.googlegroups.com...
Rozwiązując kompleksowo Twój problem proponuję:

a czy taka figura może być
Sub Makro()

Dim kształt     As Shape
Dim komentarz   As Comment
Dim pusty       As String

For Each kształt In ActiveSheet.Shapes
    If kształt.Type <> msoComment Then
       kształt.Delete
   else
    pusty = Replace(komentarz.Text, Application.UserName & ":", "", , ,
vbTextCompare)
    komentarz.Text pusty
Next kształt

End Sub

Wtedy ginie nam druga pętla

pozdr
Jurek

Technical Details

Message-ID: <3b6c5$4358a926$3eb35d81$29345@news.chello.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail

References:

<d7b21$435806bd$3eb35d81$963@news.chello.pl>   <1129844818.216627.167640@g49g2000cwa.googlegroups.com>   <708c5$43589af9$3eb35d81$26394@news.chello.pl>   <1129881417.961033.82360@g47g2000cwa.googlegroups.com> <1129883336.717627.107690@g43g2000cwa.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail
From: "juras" <jurrekm@poczta.onet.pl>
Newsgroups: pl.comp.lang.vbasic
References: <d7b21$435806bd$3eb35d81$963@news.chello.pl>   <1129844818.216627.167640@g49g2000cwa.googlegroups.com>   <708c5$43589af9$3eb35d81$26394@news.chello.pl>   <1129881417.961033.82360@g47g2000cwa.googlegroups.com> <1129883336.717627.107690@g43g2000cwa.googlegroups.com>
Subject: Re: Jak w *.xls usunąć autora komentarza?
Date: Fri, 21 Oct 2005 10:39:02 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <3b6c5$4358a926$3eb35d81$29345@news.chello.pl>
X-Complaints-To: abuse@chello.pl
Organization: chello.pl
Lines: 29
NNTP-Posting-Host: 62.179.93.129 (62.179.93.129)
NNTP-Posting-Date: Fri, 21 Oct 2005 10:39:02 +0200
X-Trace: 3b6c54358a9269b16f82429345
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message