Excel VBA質問箱 IV

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

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


15139 / 76738 ←次へ | 前へ→

【67082】Re:オートシェイプ斜線について
発言  kanabun  - 10/11/2(火) 1:06 -

引用なし
パスワード
   ▼sya さん:

>現在のコードは左下から右上なのですが
>これを左上から右下にコードを変更したいのですが

>      .Worksheet.Shapes.AddLine(Bx, By, Ex, Ey).Line.Weight = 0.5
>    End With

のところを

      With .Worksheet.Shapes.AddLine(Bx, By, Ex, Ey)
        .Line.Weight = 0.5
        .Flip msoFlipVertical
      End With
>    End With

としたらどうでしょう?

0 hits

【67081】オートシェイプ斜線について sya 10/11/2(火) 0:53 質問
【67082】Re:オートシェイプ斜線について kanabun 10/11/2(火) 1:06 発言
【67083】Re:オートシェイプ斜線について sya 10/11/2(火) 1:17 お礼

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