Excel VBA質問箱 IV

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

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


40887 / 76732 ←次へ | 前へ→

【40934】Re:吹出しの先っぽの位置を変えずに自動サイズ調整してほしい
質問  あくたいおん  - 06/7/26(水) 15:35 -

引用なし
パスワード
   ▼bykin さん:
うーん、使ったことの無いコマンドが多くて理解できないところがありますが(^_^;
試してみました。

確かに先っぽは元の位置に戻ります。うれしいです!!
でも、ボックス内で改行などした時には、ボックスのy方向位置まで変わってしまうようです。
これまた疑問です。どうしてボックス側もずれてしまうのでしょう?

bykinさんのも参考に、作成用マクロと直し用マクロにしてみました。
わたしの理解範疇外のものは使わないで作ったので、いろいろ不具合あるかもしれません。
できれば不明なところ
Select Case .AutoShapeType
Case msoShapeRectangularCallout To msoShapeLineCallout4BorderandAccentBar
などの解説をいただけるとうれしいですが...(^_^;

Sub 作成()
Dim vLeft, vtop, vHeight, vWidth As Long
  Dim svx As Double, svy As Double
  With ActiveCell '位置調整
    vHeight = 10
    vWidth = 50
    vLeft = .Left + .Width + 22
    vtop = .Top - 15
  End With
  With ActiveSheet.Shapes.AddShape(msoShapeLineCallout3, vLeft, vtop, vWidth, vHeight)
    svx = Round((.Adjustments(1) * vWidth + vLeft) / 0.75, 0) * 0.75
    svy = Round((.Adjustments(2) * vHeight + vtop) / 0.75, 0) * 0.75
    .AlternativeText = svx & "," & svy

    .Fill.ForeColor.RGB = RGB(255, 204, 204)
    With .Line
      .ForeColor.SchemeColor = 20
      .BeginArrowheadStyle = msoArrowheadOval
      .EndArrowheadStyle = msoArrowheadOval
    End With
    With .TextFrame
      With .Characters
        .Text = ""
        With .Font
          .Name = "MS Pゴシック"
          .Size = 8
        End With
      End With
      .AutoSize = True
    End With
    .Select
    SendKeys "> {BS}"
  End With
End Sub
Sub 修正()
  Dim cx As Single
  Dim cy As Single
    On Error Resume Next
  For Each s In ActiveSheet.Shapes
    With s
      cx = CSng(Left$(.AlternativeText, InStr(.AlternativeText, ",") - 1))
      cy = CSng(Mid$(.AlternativeText, InStr(.AlternativeText, ",") + 1))
      .Adjustments(1) = (cx - .Left) / .Width
      .Adjustments(2) = (cy - .Top) / .Height
    End With
  Next
End Sub

0 hits

【40680】吹出しの先っぽの位置を変えずに自動サイズ調整してほしい あくたいおん 06/7/20(木) 13:01 質問
【40708】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/20(木) 20:16 発言
【40709】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/20(木) 21:13 発言
【40731】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/21(金) 16:22 発言
【40727】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/21(金) 15:43 発言
【40734】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/21(金) 17:31 発言
【40740】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/21(金) 23:36 回答
【40934】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/26(水) 15:35 質問
【40938】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/26(水) 16:11 発言
【40989】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/27(木) 13:20 質問
【41019】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/27(木) 19:48 発言
【41026】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/27(木) 22:11 発言

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