也是不对的公式的类型不是ole对象

非常抱歉，我的前两个回答都是错误的。公式对象在PowerPoint中的类型是“Microsoft Equation 3.0”，而不是OLE对象。您可以通过以下代码来选择第一个公式对象并显示其文本内容：

Sub SelectFirstEquation()
    Dim sld As Slide
    Dim shp As Shape
    
    '选择第一个Slide
    Set sld = ActivePresentation.Slides(1)
    
    '循环遍历Slide上的每个Shape
    For Each shp In sld.Shapes
        '如果Shape是公式类型，则选中它并显示文本内容
        If shp.Type = msoOLEControlObject And shp.OLEFormat.ClassType = "Equation.3" Then
            shp.Select
            MsgBox shp.OLEFormat.Object.Formula
            Exit For '退出循环，只选择第一个公式对象
        End If
    Next shp
End Sub

请注意，使用VBA宏编程需要一定的编程技能和经验，并且可能会涉及到一些安全风险。请谨慎使用，并确保您了解代码的含义和作用。

相关问题

linux下能够处理ole对象的c库

Linux下可以使用libole2库来处理OLE对象。libole2是一个开源的C语言库，提供了一些基本的OLE对象处理功能。

libole2可以在Ubuntu和Debian等Linux发行版中使用apt-get命令进行安装。可以使用以下命令安装：

sudo apt-get install libole2-0-dev

安装后，可以按照以下步骤使用libole2库：

1. 包含头文件 `ole2.h`：

#include <ole2.h>

2. 使用 `CoInitialize()` 函数来初始化COM库：

CoInitialize(NULL);

3. 使用 `StgOpenStorage()` 函数打开OLE对象：

IStorage* pStorage = NULL;
HRESULT hr = StgOpenStorage(L"olefilename.ext", NULL, STGM_READ | STGM_SHARE_DENY_WRITE, NULL, 0, &pStorage);

`olefilename.ext` 是你要打开的OLE对象的文件名。

4. 使用 `IStorage` 接口中的方法来访问OLE对象的内容。

5. 使用 `IStorage` 接口中的方法关闭OLE对象：

pStorage->Release();

注意事项：使用libole2库需要了解COM编程和OLE对象的基本知识。在使用libole2库时，请仔细阅读相关文档和API参考手册，并参考示例代码。

java ole_Java 在Word中添加OLE对象

要在 Word 中添加 OLE 对象，可以使用 Java 的 COM Bridge 组件，通过调用 Word 的 COM 接口实现。

以下是一个示例代码，演示如何在 Word 中添加 Excel 表格：

import com.jacob.activeX.ActiveXComponent;
import com.jacob.com.Dispatch;
import com.jacob.com.Variant;

public class WordOLE {
    public static void main(String[] args) {
        ActiveXComponent word = new ActiveXComponent("Word.Application");
        word.setProperty("Visible", new Variant(true));
        Dispatch documents = word.getProperty("Documents").toDispatch();
        Dispatch document = Dispatch.call(documents, "Add").toDispatch();
        Dispatch selection = Dispatch.get(word, "Selection").toDispatch();

        // 添加 OLE 对象
        Dispatch shapes = Dispatch.get(selection, "Shapes").toDispatch();
        Dispatch oleObject = Dispatch.call(shapes, "AddOLEObject", "Excel.Sheet", "C:\\example\\example.xlsx", false, false, "", 0, "", 0).toDispatch();

        // 调整 OLE 对象的位置和大小
        Dispatch frame = Dispatch.get(oleObject, "Anchor").toDispatch();
        Dispatch.call(frame, "Select");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveRight");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");
        Dispatch.call(selection, "MoveDown");

        Dispatch.call(frame, "Select");
        Dispatch.call(oleObject, "Activate");

        // 保存并关闭文档
        Dispatch.call(document, "SaveAs", "C:\\example\\example.docx");
        Dispatch.call(document, "Close", new Variant(false));
        Dispatch.call(word, "Quit");
    }
}

在这个例子中，我们使用了 jacob 库来调用 COM 接口。首先，我们打开 Word 应用程序并创建一个新文档。然后，我们获取当前的选区并在其中添加 OLE 对象。接下来，我们使用选区调整 OLE 对象的位置和大小，然后激活它以确保它能够正常工作。最后，我们保存并关闭文档，并退出 Word 应用程序。

请注意，在此过程中，我们需要提供 Excel 表格的路径和类型。在本例中，我们将路径设置为 "C:\\example\\example.xlsx"，并将类型设置为 "Excel.Sheet"。您需要根据您的情况进行更改。