Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1014 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76879】オートシェイプの色とパターンの設定 けい 15/3/31(火) 19:05 質問[未読]
【76880】Re:オートシェイプの色とパターンの設定 カリーニン 15/3/31(火) 20:04 発言[未読]
【76881】Re:オートシェイプの色とパターンの設定 カリーニン 15/3/31(火) 20:12 発言[未読]
【76883】Re:オートシェイプの色とパターンの設定 マナ 15/4/1(水) 18:45 発言[未読]
【76884】Re:オートシェイプの色とパターンの設定 カリーニン 15/4/1(水) 21:57 発言[未読]
【76879】オートシェイプの色とパターンの設定
質問  けい  - 15/3/31(火) 19:05 -
引用なし
パスワード
   VBA初心者です。
あるセルの色とパターンを取得し、それをオートシェイプに反映したいのですがうまくいきません。色までは出来たのですが、パターンが反映されないで困っております。

　　　　With ActiveSheet.Shapes("棒" & I)
　　　　　　.Left = 棒左上座標X: .Top = 棒左上座標Y
　　　　　　.Width = 棒幅: .Height = 棒高
　　　　　　.Fill.ForeColor.RGB = Cells(I, 11).Interior.Color
　　　　　　Pattern = Cells(I, 11).Interior.Pattern
　　　　End With

よろしくお願いします。
【76880】Re:オートシェイプの色とパターンの設定
発言  カリーニン  - 15/3/31(火) 20:04 -
引用なし
パスワード
   2002までは塗りつぶし効果でパターン設定できましたが2007以降ではなくなったようです。
代替の方法が↓で紹介されてます。
※VBAでの方法は未確認です。

ht tp://www.geocities.jp/oyakamassan_m/exceltips/excel2.html
【76881】Re:オートシェイプの色とパターンの設定
発言  カリーニン  - 15/3/31(火) 20:12 -
引用なし
パスワード
   >2007以降ではなくなったようです。

↑のように書きましたが2010で復活したようです。
※当方2007ですので確認不足でした。
【76883】Re:オートシェイプの色とパターンの設定
発言  マナ  - 15/4/1(水) 18:45 -
引用なし
パスワード
   文法としては

.Fill.Patterned　Cells(I, 11).Interior.Pattern

みたいですが、

セルとオートシェイプで設定できるパターンが
そもそも違うようなので無意味と思います。

ht tp://www.happy2-island.com/excelsmile/smile03/capter01211.shtml
ht tp://www.happy2-island.com/excelsmile/smile03/capter00609.shtml
【76884】Re:オートシェイプの色とパターンの設定
発言  カリーニン  - 15/4/1(水) 21:57 -
引用なし
パスワード
   2007でしか試してませんが、セルをコピーし図として貼り付け後、
図の変更でシェイプに変更しようとしてもシェイプに変更した時
点でパターンは消滅してしまいますね。残念。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1014 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free