Excel VBA質問箱 IV

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

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


1013 / 13644 ツリー ←次へ | 前へ→

【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でしか試してませんが、セルをコピーし図として貼り付け後、
図の変更でシェイプに変更しようとしてもシェイプに変更した時
点でパターンは消滅してしまいますね。残念。

1013 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free