Excel VBA質問箱 IV

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

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


69799 / 76738 ←次へ | 前へ→

【11454】Re:テキストボックスの選択
質問  カド E-MAIL  - 04/3/9(火) 14:58 -

引用なし
パスワード
   ▼IROC さん 回答ありがとう御座います。

以下のコードで添削お願いします。

セルA1に”鈴木”と入力してある。
Range("b5:b7")にハンコの形をした図形が作成される。
マクロによりハンコがコピーされているので、貼りたいところにペーストする。

Sub 印鑑()

  '(円、x位置、y位置、x長さ、y高さ)
  ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, 30, 30).Select
  
  '透明に
  Selection.ShapeRange.Fill.Visible = msoFalse
  
  '輪郭線の太さを設定
  Selection.ShapeRange.Line.Weight = 1.5

  'ラインを赤色に
  Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
  
  'テキストボックスの追加
  ActiveSheet.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 60, 60, 30, 30).Select
  
  '背景を透明に
  Selection.ShapeRange.Fill.Visible = msoFalse

  'ラインを透明に
  Selection.ShapeRange.Line.Visible = msoFalse
  
  '文字の書き込み
  Selection.Characters.Text = Range("a1")


  '(処理開始文字位置、終了文字位置)
  With Selection.Characters(Start:=1, Length:=3).Font
    .Name = "MS Pゴシック"
    .FontStyle = "太字"
    .Size = 11
    .ColorIndex = 3
    
  End With
  
  '文字を横中央に
  Selection.HorizontalAlignment = xlCenter
  

  '絵としてコピー
  ActiveSheet.Range("b5:b7").CopyPicture xlScreen, xlBitmap
  
End Sub
0 hits

【11445】テキストボックスの選択 カド 04/3/9(火) 13:13 質問
【11447】Re:テキストボックスの選択 Jカーター 04/3/9(火) 13:21 回答
【11449】Re:テキストボックスの選択 カド 04/3/9(火) 14:32 質問
【11450】Re:テキストボックスの選択 IROC 04/3/9(火) 14:44 回答
【11454】Re:テキストボックスの選択 カド 04/3/9(火) 14:58 質問
【11461】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:08 回答
【11462】Re:テキストボックスの選択 カド 04/3/9(火) 16:26 質問
【11463】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:33 回答
【11467】Re:テキストボックスの選択 カド 04/3/9(火) 16:50 質問
【11468】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:52 発言
【11469】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:58 回答
【11471】Re:テキストボックスの選択 カド 04/3/9(火) 17:08 お礼
【11475】Re:テキストボックスの選択 カド 04/3/9(火) 17:21 お礼

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