回答編集履歴
1
補足追加。その他修正
test
CHANGED
@@ -2,8 +2,8 @@
|
|
2
2
|
実際にそういう操作をしたことがないのでこういう方法で値を取得できると思いますよと提示にとどめます。
|
3
3
|
> ・オートシェイプから赤字を抜き出す。
|
4
4
|
>・オートシェイプから取り消し線の文字列を抜き出す。
|
5
|
-
・**ShapeRange(Z).TextFrame2.TextRange.Font**
|
5
|
+
・**ShapeRange(Z).TextFrame2.TextRange.Font**プロパティから入手できます。変数の場合は確かsheet.shapes.range(Z)でShapeRange(Z)が取得できたはずです。
|
6
|
-
ShapeRange(Z).TextFrame2.TextRange.Font
|
6
|
+
With Activesheet.Shapes.Range(Z).TextFrame2.TextRange.Font
|
7
7
|
.Fill.ForeColor.RGB=RGB(255,0,0)'赤
|
8
8
|
.Strike=msoSingleStrike'一重取り消し線
|
9
9
|
end With
|
@@ -11,5 +11,6 @@
|
|
11
11
|
以下サイトはpowerpoint版ですが中身はexcelと同じでしょう。
|
12
12
|
[TextRange.Font プロパティ (PowerPoint)](https://learn.microsoft.com/ja-jp/office/vba/api/powerpoint.textrange.font)
|
13
13
|
|
14
|
+
ShapeRangeオブジェクトの取得について
|
15
|
+
[Shapes.Range プロパティ (Excel)](uhttps://learn.microsoft.com/ja-jp/office/vba/api/excel.shapes.range)
|
14
16
|
|
15
|
-
|