Excel VBA質問箱 IV

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

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


14308 / 76734 ←次へ | 前へ→

【67923】Re:オートシェイプのマイナス作成について
質問  Imai  - 11/1/17(月) 12:05 -

引用なし
パスワード
   ▼kanabun さん:
大変ありがとうございました。オートシェイプの表現を諦めなければ…っと思っていました。セルの間隔を短くして、色セルの長さで横棒グラフを代用していましたが、四捨五入処理をしてセルを埋めるか・空けるかで細かい長さが表現できませんでした。
それから、このようなことが出来るので有れば、オートシェイプの複数個(6ヶ)に「写真を削除・挿入し写真のナンバー付け」が以下のコードでうまくいきました。

On Error Resume Next
With ActiveSheet
  For k = 1 To 6
  .Rectangles("myPicture" & k).Delete
  Next k
End With
On Error GoTo 0
非常にありがたく感謝しています。と共に、次はいつも同じ写真であれば問題が無いのですが、写真を変更したときには、ナンバー付けが生かされない…という問題が出てきそうです。これは今すぐではありませんのでまた、その時には質問させていただきます。
このテーマは着眼点を変えてみる必要が在るのでしょうか。
  
それから、
山猿さん ありがとうございました。分かりにくい質問でご迷惑をおかけしました、今後ともよろしくお願いします。
7 hits

【67915】オートシェイプのマイナス作成について Imai 11/1/16(日) 23:43 質問
【67916】Re:オートシェイプのマイナス作成について 山猿 11/1/17(月) 0:01 発言
【67917】Re:オートシェイプのマイナス作成について kanabun 11/1/17(月) 0:24 発言
【67919】Re:オートシェイプのマイナス作成について kanabun 11/1/17(月) 10:02 発言
【67923】Re:オートシェイプのマイナス作成について Imai 11/1/17(月) 12:05 質問

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