エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20150706104007]]: #score: 6703; @digest: d0e0554efb4348a4c2d33b08936947e9; @id: 68431; @mdate: 2015-07-07T05:38:46Z; @size: 2982; @type: text/plain; #keywords: smartart (35487), nodes (25676), 色s (14761), textframe2 (10563), textrange (9774), groupitems (8958), 織図 (8661), diagram (7748), 枠線 (6590), 列ra (5832), 組織 (4972), forecolor (4183), シェ (3161), トシ (3051), ェイ (2977), の枠 (2745), デイ (2359), ノー (2260), イプ (2206), デッ (2114), たオ (2022), ス指 (2006), 線の (1813), ンデ (1569), rgb (1411), shapes (1322), オー (1154), ンロ (1096), fill (1001), selection (953), プの (919), 2015 (875); 『SmartArtのアイテムの枠線』（0472）
以下のコードで選択したオートシェイプの枠線の色と太さを変更することができましたが, SmartArtの中にある選択したオートシェイプの枠線の色と太さを変更することができませんでした. どのようにコードをいじればよろしいでしょうか. ご教授の方よろしくお願いします. With Selection.ShapeRange.Line .ForeColor.RGB = RGB(255, 0, 0) '線の色 .Weight = 6 '線の太さ End With ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 組織図は詳しくないのですが、その中の部分（ノード）については、今、どこを選択しているのかその情報が、ローカルウィンドウで、捜しまくったんですがみあたりません。提供してくれないのかもしれません。組織図の中の、任意で選択されたものではなく、ノードのインデックスを特定すれば、いろいろ設定ができるようです。たとえば http://krt21.xsrv.jp/blog/?p=65 この中で、組織図をVBAで作成するコードがダウンロードできますので、参考にできるかもしれません。ダウンロードは、くれぐれも自己責任で。（β） 2015/07/06(月) 11:21 ---- ご回答ありがとうございます. インデックス指定をしてオートシェイプの枠線の色などを変更する方法がは,当方で見つけましたが選択したオートシェイプの枠線の設定を変更する方法がわかりません. インデックスを指定せずに選択したオートシェイプの枠線の設定を変更する方法はないでしょうか. （0472） 2015/07/06(月) 16:48 ---- >>インデックスを指定せずに選択したオートシェイプの枠線の設定を変更する方法はないでしょうか識者の回答をお待ちください。（β） 2015/07/06(月) 17:01 ---- 少し違うと思いますが興味がわいていろいろ試して忘れないうちに ActiveSheet.Shapes(Selection.Name).SmartArt.Color = Application.SmartArtColors(6) これで選択したSmartArtのスタイルの色を変えられます。まだノードというデータについては試していません。今週は少し忙しいので返答は遅くなります。いろいろ試しますができなかったらすいません（デイト） 2015/07/06(月) 19:03 ---- 選択したものではないし、枠でもないけど、実験してみた結果をメモ。 Sub test() Dim S As SmartArt Dim i As Long Dim j As Long Set S = ActiveSheet.Shapes("Diagram 1").SmartArt '文字列 Range("A1") = S.Nodes(1).TextFrame2.TextRange.Text For i = 1 To S.Nodes.Count For j = 1 To S.Nodes(i).Nodes.Count Cells(2, j).Value = S.Nodes(i).Nodes(j).TextFrame2.TextRange.Text Next j Next i '背景色 S.Nodes(1).Nodes(1).TextFrame2.TextRange.Lines.Select Selection.Fill.ForeColor.RGB = RGB(255, 0, 0) '文字色 S.Nodes(1).Nodes(1).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 128, 255) End Sub （???） 2015/07/07(火) 11:51 ---- 報告ありがとうございます. ActiveSheet.Shapes(Selection.Name).GroupItems(1).Line.ForeColor.RGB = RGB(255, 0, 0) ActiveSheet.Shapes(Selection.Name).GroupItems(1).Line.Weight = 4.5 デイトさんを参考に試行錯誤したところ、選択したSmartArtの特定のオートシェイプの枠線の色と太さを変えることができました。引き続きいろいろと試そうと思います。（0472） 2015/07/07(火) 14:38 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201507/20150706104007.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ