|
▼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
非常にありがたく感謝しています。と共に、次はいつも同じ写真であれば問題が無いのですが、写真を変更したときには、ナンバー付けが生かされない…という問題が出てきそうです。これは今すぐではありませんのでまた、その時には質問させていただきます。
このテーマは着眼点を変えてみる必要が在るのでしょうか。
それから、
山猿さん ありがとうございました。分かりにくい質問でご迷惑をおかけしました、今後ともよろしくお願いします。
|
|