Excel VBA質問箱 IV

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

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


5466 / 76732 ←次へ | 前へ→

【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

よろしくお願いします。

208 hits

【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 発言[未読]

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