HOME > Q&A > Excel （一般機能）

Excel （一般機能）
Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows XP Professional : Excel 2007)
コメントの図形変更と透明化について
投稿日時: 08/10/08 13:33:46
投稿者: WinArrow
投稿者のウェブサイトに移動

http://moug.net/faq/viewtopic.php?t=33259&highlight=%A5%B3%A5%E1%A5%F3%A5%C8
で、アドバイスを頂き、
コメントの図形をへんこうすることができました。
 
ところが、図形によって、
透明化すると、図形が透けないで「影」が邪魔をする現象が発生します。
 
問題の図形
角丸四角形
など、複数存在します。
 
丸(楕円形)は大丈夫です。
 
因みに、問題の図形も、そうでない図形も
.Shape.Shadow.Obscuredは、Trueになっています。
 
従来バーsジョンでは、図形が透けないということはありません。
 
対処方法はありませんか？
回答
投稿日時: 08/10/09 00:15:08
投稿者: cat

＞.Shape.Shadow.Obscuredは、Trueになっています。
 
透過をセットした後，さらに透過度をセットすると良いのでは。
 
.shape.shadow.transparency = 0.77
 
 
＃図形を変更すると，コメントの引き出し線が角部から外れてちょっと困りませんか？
投稿日時: 08/10/09 10:22:59
投稿者: WinArrow
投稿者のウェブサイトに移動

cat さんの引用:
＞.Shape.Shadow.Obscuredは、Trueになっています。
 
透過をセットした後，さらに透過度をセットすると良いのでは。
 
.shape.shadow.transparency = 0.77
 
 
＃図形を変更すると，コメントの引き出し線が角部から外れてちょっと困りませんか？

 
透過度をセットすると、「影」が透けないのです。
 
>コメントの引き出し線が角部から外れてちょっと困りませんか？
この問題もあります。
別問題と考えているので、別のスレを立てようかと思っていました。
外れないようにする方法はあるのでしょうか？
回答
投稿日時: 08/10/09 12:34:01
投稿者: んなっと

    .Shadow.Visible = msoFalse
ではどうでしょうか？
 
Dim myCom As Comment
Set myCom = Selection.Cells(1, 1).AddComment
With myCom
  .Visible = True
  .Text .Author & ":" & Chr(10)
  With .Shape
    With .TextFrame
      .Characters(1, .Characters.Count - 1).Font.Bold = True
    End With
    .AutoShapeType = msoShapeRoundedRectangle
    .Fill.Visible = msoFalse
    .Shadow.Visible = msoFalse
  End With
End With
投稿日時: 08/10/09 13:17:39
投稿者: WinArrow
投稿者のウェブサイトに移動

To んなっと　さん
 
レスありがとうございます。
  

引用:
.Shadow.Visible = msoFalse
ではどうでしょうか？

 
最悪、これしかないのかな？
って考えています。
 
バグ？かな？

回答
投稿日時: 08/10/10 01:32:08
投稿者: cat

あれれ？
手元では…
 
Sub macro2()
　With ActiveCell.AddComment
　　.Visible = True
　　With .Shape
　　　.AutoShapeType = msoShapeRoundedRectangle
　　　.Fill.Transparency = 0.75
　　　.Shadow.Transparency = 0.75
　　End With
　End With
End Sub
 
で角丸四角の影も透過にできてます。
（Excel2007 SP1 / WindowsXP SP2)
 
 
引き出し線の方は，残念ながらまだ手がかりがありません。図形の種類を変えた瞬間に「図形の真ん中」に線の取り付きが変わるって，一体何を使ってるなのかな。。
投稿日時: 08/10/11 23:05:52
投稿者: WinArrow
投稿者のウェブサイトに移動

cat さんの引用:
Sub macro2()
　With ActiveCell.AddComment
　　.Visible = True
　　With .Shape
　　　.AutoShapeType = msoShapeRoundedRectangle
　　　.Fill.Transparency = 0.75
　　　.Shadow.Transparency = 0.75
　　End With
　End With
End Sub
 
で角丸四角の影も透過にできてます。
（Excel2007 SP1 / WindowsXP SP2)

お手数をおかけします。
「影」が透明化しても、XL2003以前と同じにならないです。
 
「透けて見える」と「影が透明化される」は異なります。
 
　With ActiveCell.AddComment
　　.Visible = True
　　With .Shape
　　　.AutoShapeType = msoShapeRectangle
　　　.Fill.Transparency = 0.75
　　End With
　End With
End Sub
の違いと確認してみてください。
「影」を透明化しなくても、「透けて見えます」よね。
 
cat さんの引用:

引き出し線の方は，残念ながらまだ手がかりがありません。図形の種類を変えた瞬間に「図形の真ん中」に線の取り付きが変わるって，一体何を使ってるなのかな。

 
　With ActiveCell.AddComment
　　.Visible = True
　　With .Shape
　　　.AutoShapeType = msoShapeRectangle
　　　.Fill.Transparency = 0.75
　　End With
　End With
End Sub
でも、引き出し線の先端が「図形の真ん中」になってしまいます。
msoShapeRectangleは、デフォルトと同じなのに・・・・
一旦、図形をデフォルトと違うものに設定しまうと
デフォルトと同じ「msoShapeRectangle」に設定しても（戻したつもりでも）引き出し線は戻りません。
引き出し線のプロパティらしきものが見当たらない・・・・

回答
投稿日時: 08/10/16 21:42:53
投稿者: cat

ちょっとあいだが開いてしまって失礼しました。
 
補足のご説明を頂いてようやくご質問のレベルに追いつくことができましたが，これは確かにおかしな動作ですね。図形の種類によって挙動が違うってのは，やっぱりバグといっても過言ではないと思います。その後もいろいろいじってみてましたが，残念ながら突破口が見いだせませんでした。
 
もっとも設計的には，当初からあったように今回着目している「影」自体は2007の操作の対象外みたいなので「仕様外」で逃げられちゃうのかもしれませんが。
 
 
 
投稿日時: 08/10/16 23:57:55
投稿者: WinArrow
投稿者のウェブサイトに移動

引用:
その後もいろいろいじってみてましたが

お手数をおかけしました。
 
「コメントくん」というフリーソフトのExcel2007対応のための改造途中で、発生した問題で、
前面の図形の透明度が０以外の時には、
「影」を非表示にする方法で、対応することと致しましたが、何か策があるのではと質問した次第です。
 
お付き合いありがとうございました。
 
Excel2007には、従来バージョンでは問題なくできていたことが、できなくなったということが
この板をご覧の皆さんにもお伝えできればと願っています。
「仕様が違う」で、片付けてしまえばそれでおしまいになってしまいますが、
それまで使えて機能が使えないのは、悔しいと感じている人のために・・・・
 
これで閉じます。