Excel VBA質問箱 IV

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

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


15136 / 76734 ←次へ | 前へ→

【67081】オートシェイプ斜線について
質問  sya  - 10/11/2(火) 0:53 -

引用なし
パスワード
   ネット上で探して利用しています
vba詳しくなくて教授お願いしたいのですが
現在のコードは左下から右上なのですが
これを左上から右下にコードを変更したいのですが
よろしくお願いします。単純な質問ですみません
Sub Add()
  Dim Bx As Single, By As Single
  Dim Ex As Single, Ey As Single
  Dim RR As Range, MyObj As Object, Ch As Boolean
  
  Ch = True
  If TypeName(Selection) <> "Range" Then Exit Sub
  Set RR = Selection
  For Each MyObj In ActiveSheet.Lines
    If MyObj.TopLeftCell.Row = RR.Row And _
        MyObj.TopLeftCell.Column = RR.Column Then
      MyObj.Delete
      Ch = False
      Exit For
    End If
  Next MyObj
  If Ch Then
    With RR
      Bx = .Left
      By = .Top + .Height
      Ex = Bx + .Width
      Ey = .Top
      .Worksheet.Shapes.AddLine(Bx, By, Ex, Ey).Line.Weight = 0.5
    End With
  End If
  Set RR = Nothing
End Sub

2 hits

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

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